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JEUX, UTILITAIRES, EDUCATIFS 

PLUS UN TABLEAU COMPARATIF DES BASIC 

POUR ADAPTER LES PROGRAMMES 

SUR TOUS LES MICRO-ORDINATEURS 
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-. LA FACE CACHEE 
DE VOTRE CPC ; astu- 
ces, idées, conseils, 
tout pour comprendre 
votre micro, son ana- 
tomie, son fonctionne- 
ment, sa programma- 
Son et exploiter ses 
capacités graphiques 
et sonores. 



...VOTRE CPC 464, 
664 OU 6128 ; pas- 
sionnés, petits ou 
grands, spécialistes ou 
débutants, une infor- 
mation pratique et la 
compétence d'experts 
ou service de votre 






...VOTRE MICRO 
AMSTRAD : dans chct 
que numéro de MI- 
CROSTRAD, un cock- 
tail de programmes 
(dessins, jeux, utilitaires, 
gestion, etc.) et des 
trucs de programma- 
tion. 



.... Ville : 

i règlement par chèque bancaire ou postal libellé à l'ordre de MICROSTRAD. 



BULLETIN ««« 
D'ABONNEMENT 

à retourner à 

MICROSTRAD 

Service Abonnements 

5, place du colonel-Fabien, 

75491 PARIS Cedex 10 




SPÉCIAL PROGRAMMES 
LVI 77HS DÉCEMBRE 19S5 



42 



PROGRAMMES 

BASIC 



TRANS'BASIC 

Tableau d'équivalence des ordres Basic qui vous per- 
mettra d'adapter les programmes à la plupart des 
micro-ordinateurs actuels. 



18 




VOYAGE DANS LA 3' DIMENSION 

En voiture pour cette étape graphique sur le chemin 
de la Twiningt Zone ! 



LA GENEALOGIE À LA PORTEE DE TOUS 

Seurez-vous vous mettre à la portée des branches de 
votre arbte généalogique ? 



AUTOMATE DECODEUR DE MASTERMIND 

La boucle est bouclée... 



LE MESSI EST ARRIVE... 

Recueillons-nous, mes frères, avant d'envoyer n 

messages à Notre Seigneur Informatique. 
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EXPLORATION A LA RAME 

Ètes-vous prêt pour un voyage dans le métro évitant 

la galère ? 



PETITE MULTIPLICATION, GRANDE PRECISION 
Comme vous le savez, on a toujours besoin d'un plus 
petit que soi. 



RANGEMENT DE DIAPOSITIVES 

Mettez-vous au diapason de ce qui se fait de mieux 
en matière de rangement et de recherche pour vos dia- 
positives. 
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SORCELLERIE !!! 

Voici un jeu d'aventures qui n'est pas bien si 



EAO-ci, EAO-là, les montagnards sont là... 
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CALCUL DE SURFACES 

Après ceux d'airain, en voici de nouveaux à soumet- 
tre à votre appétit d'apprentissage. 



ALEC ET ROY 

Vous connaissez celle du type assis sur la branche qu'il 

est en train de scier ? 
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STRATEGIE DU PILOU 

Pilou ~> Pilou-face, bien sûr I 



CASSE-TETE 

Ne vous faites pas trop mal en glissant sur v 
lettres... 
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SYSTEMES LINEAIRES 

Ne pas confondre, dans vos équations, linéaire et stei- 



HEP TAXI ! 

Si vous ne réussissez pas à conduire vos passagers 

à destination, votre adversaire risque de le faire avant 

vous. 
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HOMBRES DE BERNOULLI 

-ttention ! Le gang des mathématiciens suisses 
~appe encore ! 
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M MORLOCKS SONT DE RETOUR 

. ojs ne saviez pas qu'ils étaient partis ? Demandez 
b détails à Wells... 



"EST DE FERMAT 

■ laissez pas vos nombres se décomposer n'importe 

arriment. 
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3RAPH 3 DIM 

\e sous-estimons pas la graphité de fonctions quel- 
i.epeu épaissies... 



1RGUMENTIQUE 

A bout d'argument pour ne plus savoir quoi dire sans 

-en dire tout en le disant ? Ce programme est pour 



SOYONS NETTEMENT PRECIS POUR FAIRE 

DE LA PHOTO 

z aites le point dans un domaine encore un peu flou... 
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WASTERMiND EXPRESS 

-"est avec les vieux crus que l'on fait les meilleures 
ajvées. 
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DES CHIFFRES ET DES NOMBRES 

Sujet inépuisable, tenez le coup jusqu'au bout ! 
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ELECTRO-PIONS 

-e premier jeu de pions électromagnétique. 



DONNES DE BRIDGE 

3 onnez-vous à fond dans ces parties carrées qui ne 
Bot pas celles que vous pensez. 



PILE FORTH 

Commencez votre éducation et que ce que vous savez 
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LEGISLATIVES A DOMICILE 

Eh oui ! Le débat sur la cohabitation va désormais 

entrer chez vous, département par département. 



-E NOMBRE D'OR ETAIT DANS LA BOITE 
I ALLUMETTES 

.= m de Nim étant d'une actualité brûlante, ne soyez 
:îs Or-if ié par ce qui lui arrive. 



ia développer 

70 



n en avez pas, c'est le moment ou ja 



ITINERAIRE DU VRP 

Avec huit, il pourra faire le tour mais point tr 
faut pout choisir le meilleur itinéraire. 
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ANAGRAMMES COMPLETES 

Pour être sûr de ne pas en oublier, le seul moyen e: 
oe toutes les sortir. 
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PSEUDO-ASSEMBLEUR 

Assemblez, assemblez ! Pseudo ou pas, il en restera 
toujours quelque chose ! 
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VOTRE ORDINATEUR PENSE-T-IL ? 

Désormais, on reconnaîtra la nationalité d'un ordina- 
teur au discours qu'il tiendra. 
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CALCULETTE POUR NOMBRES COMPLEXES 
Ne vous inquiétez pas, c'est très simple d'emploi. 



78 



ALLO ? BASE DE CONNAISSANCES ? A VOUS I 

Laissez les spécialistes gérer vos connaissances. 



TiCTACTOE MAGIQUE 

Neuf cases pleines de mystères, 
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TAQUIN FUTE 

De taquin et chagrin, deviendrez-vous fûté et rusé ? 
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SHUTTLE 

En attendant Hermès, faites un voyage de retour sur 
terre à bord de notre navette. 



SOMME DES DIVISEURS 

Les diviseurs de vos nombres s'éparpillent ? Sommez- 
les de se i 



84 



A CHEVAL SUR L'ECHIQUIER 

Un programme à essayer au gali 



Aucune difficulté ! 



Bigre ! 
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AVEC 

LA REVUE DES UTILISATEURS 

DE MO 5, TO 7, TO 7/70 



APPRIVOISEZ 

VOTRE 

THOMSON 

Idées, astuces, 

conseils, toutes les 

recettes pour 

comprendre votre 

ordinateur, son 

anatomie, son 

fonctionnement, sa 

programmation et 

exploiter ses 

capacités 

graphiques et 

sonores. 



EXPLOREZ 

L'UNIVERS 

DE VOTRE 

MO 5-TO 7 

TO 7/70 

Logiciels, 

périphériques, 

langages, toute 

l'actualité des 

ordinateurs 

Thomson au 

rendez-vous de 

MICROTOM. 



PROGRAMMEZ 

VOTRE MICRO 

THOMSON 

Hobbystes, 

enseignants, 

petits et grands, 

fanatiques ou même 

encore débutants, 

dans choque numéro 

de MICROTOM 

une palette de 

programmes de tous 

niveaux (jeux, 

utilitaires, 

pédagogiques, 

etc.). 
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BULLETIN D'ABONNEMENT à retourner à 

MICROTOM - Service Abonnements 
5, place du Colonel-Fabien 7549 1 PARIS Cedex 1 

D Je désire m'abonner au prix avantageux de 134 FF ttc pour 6 numéros (188 FF étranger, 240 FF par avion). 

Je réalise ainsi une économie de 20% sur le prix de vente au numéro. 
D Je désire recevoir le{s) numérofs) de MICROTOM. 

Prix du numéro :28 FF (37 FF étranger, 45 FF par avion). 

Nom : Prénom : 



Code postal : , 

Ci-joint, indispensable, mon r 



Ville : 

jlement par chèque bancaire ou postai libellé à l'ordre de MICROTOM. 






TRANS'BASK 



Le Basic comme le langage humain évolue. Depuis les débuts de la micro- 
informatique, chaque micro-ordinateur a développé son propre dialecte 
Basic, son «patois ». Si, dans la grande majorité des instructions, les 
variantes ne sont que très légères, il n'est pas aisé de reconnaître la signi- 
fication de certaines instructions spécifiques à une machine. Ce « guide » 
a pour but de vous aider à adapter à votre ordinateur des programmes 
Basic écrits pour un autre ordinateur. Nous avons pour cela sélectionné 
les micro-ordinateurs les plus répandus, et disséqué leur Basic. 
Ces tableaux vous serviront non seulement de dictionnaire syntaxique de 
vos instructions Basic, mais aussi de table de traduction des différents 
ordres d'un micro-ordinateur à un autre. Attention donc, un Basic peut 
en cacher un autre... 



TABLE DÉCROISÉE 


Certaines adresses étant spécifiques a une machine, ce tableau vous permet de retrouver, par micro-ordinateur, à quel ordre 
Basic Microsoft elles correspondent. Il complète donc celui présenté dans les pages suivantes. 


Apple 
DEL "DELETE 
GET -INKEïS 
RENAME -name 
NOTRACE -TROFF 
TRACE -TRON 


SINCLAIR QL 
CRUN -CHAIN 
BORDER ! 
PAPER -COLOR 
INK 

AT -POS 
Les fenêtres ne sont pas transportantes sauf sur Amstrad. 


Atari 
CLR -CLEAR 
CLOG -CLG 

BYE -SYSTEM 
GRAPHICS -TEXT 


Oric 1 et Atmos 
GET, KEYS "INKEYS 
LN -LOG 

CURSET -PLOT 


Sharp PC 1251 
LN -LOG 


EXl 100 

NUM -AUTO 

INTRND -fIX 
CALLCLEANUP -CLS 


Canon X07 
PSET -PLOT 


BBC 

LOG -CLG 
LN «LOG 
BPUT -OUT 
RENUMBER -RENUM 
TRACE OFF -TROFF 
TRACE ON -TRON 


Tl 9W4A 
NUM -AUTO 
OLD "CLOAD 
CALL CLEAR -CLS 
CON -CONT 
RES -RENUM 
UNTRACE "TROFF 
TRACE "TRON 


AMSTRAD CPC 464, 664 et 6128 

BORDER ] 

PAPER -COLOR 

INK 

CLG -HOME 

Les fenêtres ne sont pas transporta blés sauf sur QL, 


Thomson MO S, TO 7/70 
PSnT -PLOT 


VfcïO 
SYS -CALL 
CLR -CLEAR 

GET "INKEYS 


Commodore 64 

CLR -CLEAR 


ZX81 

LN -LOG 


MSX 
PSET -PLOT 


ZX Spectrura - 
LN -LOG 
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TRANS'BASIC 



ABS à CHAIN 



ORDRE BASIC 

(BASICÔIS) 

Micro- 
ordinateur 


ABS 


ACS 

(ACS) 


AND 

(EV 

Opérateur 
.■ ■ 
ET 


ASC 

(ASC) 

Donne le code 
ASCII gj pre- 

MadKfa 


ASN 

(ASN! 
Arc sinus 


ATN 

(ATN) 

Arc tangente 


AUTO 

{AUTO! 

Numéro ration 
:.i. : o:!'qtiçuî se- 
lignes ds 
programme 


CALL 

(APPELLE) 
Appel d'ur.e 

langage 
machine 


CHAIN 

(ENCHAINE) 

Appel d'un 

programme 


ALICE (Tandy MC 10} 


ABSja.g) 




AND 


ASC(éoi} 












AMSTRAD CPC 464 


ABS(crc) 




AND 


ASQchai] 




ATN(arg| 


AUTO In» ligne 
début) |,pa;j 


aLL odr 
Wr...] 


CHAIN, nom 
prog i [,n° ligne] 


AMSTRAD CPC 6Ï28 et 664 


ABSjoig) 




AND 


ASqrfwil 




ATNH 


AUTO(n ligne) 
début] j,pas] 


CALL adr 


CHAIN . nom 

prog • ],n* ligne] 


APPLE 


ABS («g] 




AND 


ASC(thni) 




ATNjaroi 




CALL odr 


CHAIN < nom 
programme » 


ATARI 


ABSiarg) 




■ AND 


ASCichai) 




AÎN(arg| 






RtfN<C: > 


BBC 


AES(org) 


ACS(arg] 


AND 


ASCjchai] 


ASNIarg) 


ATNjarg; 


AUTO jn° iigne 
début, pos] 


CALL adr Lvar... 


CHAIN « nom 
programme » 


CANON X 07 


ABSlorg) 




AND 
ET binaire 


ASC(chai) 




ATNjarg] 






KUN < [RAM :j 
nom fichier» 


COMMODORE 64 


ABS(arg) 




AND 


ASC(choi| 




ATN (arg) 




SïS[adr) 




ECU» 


ABSIarg) 


ACS|orgJ. 


AND 


ASQdW) 


ASN|arg) 


ATNiarg] 


NUM [n° ligne 
début] |,pas] 


CALL nom du 

sous-programme 




MSX 


ABS(argl 




AND 


ASCjchai) 




ATN(org] 


AUTO [n° ligne 
début] [,pasj 


CALL nom de 
routine [param] 




ORIC1 


ABS(org) 




AND 


ASC (éoi) 




ATNiargj 




CALL adr 




ORIC ATMOS 


ABS(org) 




AND 


AÎCiîisij 




ATN(arg) 




CALL adr 


• programme»; j 


SHARP PC 1251 


ABS[oro,) 


ACSfargj 


ANÛ 


ASC(cfioiJ 


ASN(arg) 


ATN(arg) 




CALL adr 


CHAIN ; nom 

programme t, 

n° ligne 


SINCLAIR QL 


ABSiorg] 


ACOSiarg) 


AND 


CODE(diû ■ | 


ASINforg) 


ATAMIorg) 


AUTO [n° ligne 
début [,pas]] 


CALL adr 
[,var.„] 


LfiUN md*i_ 


THOMSON TO 7/70 


ABSjarg] 




AND 


ASC(thoi) 






AUTO ;n° ligne 
début [,pns]] 




SUN. MERGE 
« nom ptog » 


THOMSON MO 5 


ABS;arg) 




AND 


ASC(chai) 










RUN. MERGE 


îl 99/4A 


ABS(org| 




AND 


ASQchai! 




ATNforg] 


NUM [n* ligne 
début [.pus]] 






TRSBO 


ABS; C rg| 




AND 


ASCjchcil 




ATN(atg) 


AUTO |(!° ligne 
début .pas] 




CHAIN « nom 
programme » 


IX at 


ABSIargj 


ACS(arg) 


AND 


CODE(crd) 
N.B. ÎX 81 r.'uti- 

lise pas ASCII 


A5N[orgj 


ATN(arg) 




LETvcr- 

USS|odr) 




IX SPECTRUM + 


ABSIarg! 


AÇS(arg] 


AND 


CODEithafi 
N.B. Spedrurn 
n'uiifce pas ASCII 


ASNlarg) 


AFNfarg] 




LETvar = 

oSRiadrj ; P aisi 
Mités (mdh'ples) 




ara, : jrgument numérique ; sxp ; e> 


prisiion ; chai|nj 


.„..,, „ r . :| ...: ,. 


ique ; adr : adre 


e; von vurnbls 


■:■■ i- ■..!-■ :■:■ 


] "i\'b:i. ,:::. - 


.■■vO,:'j::,i;,. : ! : ifp;;ii't Ci:j M 


. 
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TRANS'BASIC 



CHRS à CSAVE 



CHRS 

(CARS) : ■ 
Donne k 

■ ■ 
k: code ASCII 


CLEAR 

•RAI) 


CLG 

'iC-ODj 
ogaritnme en 
Dose 10 


CLOAD I CLOSE 

(CCHARGE) \(FERM£) 
Sargemen! en fermeture de 

ichier sur ' 


CLS 

m 

■ffooment 


CONT 

{CONTINUE! 


COLOR 

(COULEUR) 
JéfiflHibnde 


cos 

ÇOS) 


COUNT 

'COMPTE) ■ 

caractères . 
1ETURN " 


CSAVE 

(CCOPIE) 
iauvegarce d'un 


CHR$(arg] 


CLEAR(org) 




CLOAD nom 

progi 
CLOAD «, fié 




CLS 


CONT 


CLS(org) 
[efface l'écran) 


COS(exp) 




CSAVE ,r rorr > 
CSAVE x, fich 


CHR$(arg| 


CLEÀ8 


CLG 

oclre fonder, 
LOGlOlexp} 


LOAD 

«nom fichier* 


CLOSE1N 
CLOSEOUT 


CLS 


CONT 


BORDER arg 
PAPERH 
INKnrg 


COS(e*p) 




SAVE < nom 
de fichier» 


OfR$|arg) 


Cl£AR 


CLG 

nuire fonction 
lOGlO(esp) 


CLOAD 
.nom fich» 


CLOSEIN 

OOSEO.UT 


CLS 


CONT 


BORDER org 
PAPER org 
INKarg 


cosh 




CSAVE « nom 


CHBSM 


CLEAfi 




LOAD [nom fich] 
fidera dî-squeîte) 


CLOSE . nom » 




CONT 


COLOR =arc 


COS(exp) 






CffR$(arg) 


CIR 


aOG[arg) 


CLOAD , nom 
fich» 


CiOSE (t[n D 

H...] 




CONT 


COLOR org 


C05H 




CSAVE [.nom 
■ Mi»] 


CHRS(arg) 


CLEAR 


LOG(arg). N.R 
CLG a w* autre si- 
gntarfefCLS) 


LOAD . noir. 

fich» 

(idem disquette) 


CLOSE (n°fich 
N.B.CLQSESQfer- 
me lous les fichiers 


CLS(écron terfj 

CLG[écrangroph 

cf.-HOME 




COLOUR org 

(GCOL 
en graphique) 


COS(s<p] 


COUNT 


SAVE [< nom 

hch»i 


CHR$(crg) 


CLEAR 




CLOAD 
.nom fich» 




CLS 


CONT 




COS(exp) 




CSAVE 

< nom ffch - 


CHRSH] 


CIR : 




LOAD (« nom 

fich.] 
(idem disquette) 


CLOSE n° fich 




CONT 




COS(exp) 




SAVE [«nom 
^ ■ fich»] 
(idem disquette) 


CflRSiDrgj 


CALL 

CLEANUF 


LOG(argJ 


LOAD [numéro, 
nom de progj 


CLOSE l[. 

n'fich] 


CLS 


CONTINUE 


CALL 
COLOR (choin) 


COS(exp] 




SAVE [numéro, 
nom de progl 


OHRSÎorgj 


CLEAR 




CLOAD t nom 
fich» 


CLOSE#rt° 

de canal 


as 


CONT 


COLOR (org...j 


COSM 




CSAVE «nom 
fich» 


CHRS[ar 3 ] 


CLEAR 




CLOAD « [nom 

fich]»i,S] 
N.B.S:30Dboud 




CLS 


CONT 




COS(enp) 




CSAVE « nom 
i,AUTO] 


CHfiSîarg) 


CLEAR 




CLOAD « inom 

nch] , i;sj 

N.E.&:300baud 




CLS 


CONT 




COS[exp] 




CSAVE « nom 

fich» [,9 
[AUTO] 


CHRSM 


OEÀR 


lûGiarg) 


CLOAD « nom 
fich» 




XLS 


CONT 




COS(exp) 




CSAVE < nom 
fkh» 


CHRS(arg) 


CLEAR 


LOGlOlexrf 




CLOSE n" conol 


as 


CONTINUE 
RETRÏ 


BORDER org 
PAPER org 
INK erg 


COS[expi 






Ctifi$(org} 


Autre utilisation 




LDAD . nom 

fich» 
(idem disquetts) 


CLOSE 


CLS 


CONT 


COLOR arg! arg 
(utilisohon parii- 
culière cf. raanue 


COSfexp) 




SAVE i nom 

fich» 

(idem disquette) 


CHRS(arg) 


Autre utilisation 




LOAD « nom 
fich» 

lidem disquette! 


CLOSE 


CLS 


CONT 


COLOR orgl, otg 


COS(exp] 




SAVE « nom 

fich» 

(idem disquette) 


CHRSH) 






OLD nom fich 




CALL CLEAR 


CONT 




COS(exp) 




SAVE neni fich 


CfiR$(arg| 


CLEAR [( rg)| 




CLOAD r [nom 
Bel. 


CLOSE 5n° fich 


CLS 


CONT 




COS|e*p) 




CSAVE . nom 
■ fich» 


CtfRSfcode) 

N.B. code + 

ASCII 


CLEAR 




LOAD > [nom 
fich] * 

(idem disquette 




CLS 


CONT 




COS(exp) 




SAVE «nom 
fich» ' 


CHRSiccde) 

N.B. code + 

ASCIi 


CLEAR 




LOAD . nom 
fich» (possibilités 

multiples) 


CLOSE S n" fich 


CLS 


CONTINUE 


PAPER arg 


COS(exp) 




SAVE « nom 

fich » (possibilités) 

multiples) 


Qrg.. ; i'!--.::T*v ■',■;" .u-ueufiedauseoptionnelle; iaindiCjUédescicj' 



VOI 77HS DÉCEMBRE 1985 



TRANS'BASIC 



DATA à FIX 



ORDRE BASIC 

(BASICOIS) 

Micro* 
ordinateur 


DATA 

(INFOS) 

liste d'éléments 


DEFFN 

(DEF FN) 

Définition de 
Son étions 
utilisateur 


DELETE 

{ENLEVE} ■ 
Effacement de 
lignes de 
programme 


D1M 

(DIMj 
Définition de 

tableaux 


EDIT 

(EDIT) 

Edite une ligne 
de programme 


END 

d'une séquence 


EOF 

(EOF) 

Fin de fichier 


EXP 

(EX?) . 

Exponentielle 


FIX 

m 

Voleur arrondie 


ALICE (Tandy MC 10) 


DATA ver [vor...] 






DIM nom 
(arg,..,) 




END 




EXP(exp] 




AMSTRAD CPC 444 


DATAvar 


DEFFN 


DELETE 


DIM nom 
(arg,...) 


EDIT n° ligne 


END 


EOF 


EXPfexp) 


ROUND(exp] 


AMSTRAO CPCélîBei 664 


DATA vor 

[,vor...j 


DEFFN 


BELÏÎE 
n° ligne! 

E,n°ligne2I 


DIM nom 
(arg..-] 


EDIT h° ligne 


END 


EOF 


EXPJexp] 


ROUND(exp) 


APPLE 


DATAvar 


DEFFN 

var(rarj = exp 


DEL n° Signe] 
[,n a lignrf..] 


DIM nom 


touche ESC + 
touche CTRL 


END 




EXP(exp) 




ATARI 


DATA vor 
j,var...i 






DIM nom 
(arg,...] 




END 




EXP(exp) 




BBC 


DATA w 


DEF FN var 
H*>r,*r|| 


DELETE 
n° Iigne2 


DIM nom 
larg,..] 


sélection par 

curseur et touche 

COPY 


END 


EOF# 


EXP(exp) 




CANON X 07 


DATAvar 


DEFFN 

var [arg, org] 


outre fonction 


DIM nom 

(arg,...) 




END 




EXP(exp) 


FlX(exp) 
partie entière 


COMMODORE 64 


DATA vor 
Ur.,] 


DEFFN 




DIM nom 
(arg,...) 




END 




EXP(exp) 




EXL 100 


DATA vor 
[,var...j 




DELn ligne? 
n°ligne2i, 


DIM nom 




ENC 




EXP(exp) 




USX 


DATAvar 

|,var...j 


DEF FN var 
jvarHxp 


DELETE 
n° lignel 
[•[n^gne!]) 


DIM nom 
(arg,...) 




END 


EOF 


EXP(exp] 




ORICl 


DATA var 

[,vor...l 


DEF FN vor 

(var|=e*p 




DIM nom 
tapg,...) 


EDIT n û Ligne 


END 




EXP(exp) 




ORIC ATMOS 


DATA vor 

|,VQ,..l 


DEF FN wr 
(wr)=exp 




DIM nom 
(arg,,..) 


EDIT n° ligne 


END 




EXP(exp) 




SHARP PC 1251 


DATAvar 
|,vor...] 






DIM nom 




. END 




EXP|eq>j 




SINCLAIR GL 


DATAvar 
|,va,..] 


DEFFN 

END DEF 
fonction 


DLINE n° lignel 

'.•nçr*?: 


DIM nom 
!org,...j 


EDIT n° ligne 




EOF 


EXP|exp) 




THOMSON TO 7/70 


DATA var 




DELETE 


v nom 




END 


EOF 


EXP(exp) 


niM 


THOMSON MO S 


DATA var 
|,var...] 


DEFFN 

var=e<p 


DE1ETE 
1° hçiel 

;.Kh 9 , ; ?;; 


OiM nom 
(arg,,..) 




END 


EOF 


EXP(exp) 


FIXM 


T19W4A 


DATA var 
|,vor...l 


DEF var 






EDIT n" ligne 


END 


EOF 


EXP(exp) 




TRS80 


DATA var 


différentes 
formulations 

possibles 


DELETE 

n s ,yr lt - ; 


DM nom 
[arg,-) 


EDIT n" ligne 


END 




EXPfoxp) 


«H 


ZX81 








DIM nom 

[arg,...) 


(sélection por 






EXP(exp) 




ZX SPECTRUM + 


DATAvar , 


DEF FN var 
[fow)Hxp 




DIM nom 

(arg,...) 


EDIT n° ligne 
(sélection par 






EXP(«p] 




■:■:■■■ ■ ■ . ■ ■ . ■ ■■; ■ '■■■:.'- ! ■ . ' . ■■■-.■■ . ■ ■ . . : ' ■ 
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TRANS'BASIC 



FLASH à INPUT» 



FLASH 

(CLIGNE) 
Clignotement. 


FOR 

(REPEAT) 

Utilisé avec 
NfJTpour 
repéter une 


FRE 

(LIBRE) 

Donne la place 
disponible en 


Sfi"30 


GOSUB 

(VAVIENS) 
Appel d'un 
sous-programme 


GOTO 

(VATEN) 
BœKtoienl 
une autre partie 
du programme 


HOME 

(VIDE) 
Vide l'écran et 
positionne le 
curseur en tait à 
gnuche 


!F THEN 
ELSE 

(SI/ALORS/ 
SINON) 
Si., alors... 


(NKEYS 

{CAFTES} 
Enlrée drwcte 
d'un caractère 
tapé au clavier 


INPUT 

(DEMANDE) 
Lecture de 

donnés entrées 
au clavier 


INPUTS 

(DEMANDE*) 
Lecture d'w 
fichier' 
séquentiel 




FOR TO [STEP) 


MEM 




GOSUB n" ligne 


GOTO n° ligne 


HOME 


IF exp THEN 

ordres (ELSE 

ordres] 


INKEYS 


INPUT [chair. ;j 






FOR yor=rjrgl 

TO arg! [STEP 

arg3] 


FRE(exp) 
FRE (chain) 




GOSUB r° lig,i c 


GOTO n° ligne 


CLS mode teste 
CLG mode gra- 
phique 


IFexoTHEN 
ordres [ELSE 


1NKEYS 


INPUT [chain ;J 


INPUT jn° Fichier 




FOR w=arg1 

ÏO argî [STEP 

ùrg3] 


FRE(exp) 
FRE(chain) 




GOSUB n" ligne 


GOTO n° ligne 


CLS mode texte 
CLG mode gra- 
phique 


IFexpTHEN 

ordres [ELSE 


INKEYS 


INPUT [chain ;] 


INPUT Jn° fichier 
var [,von„] 


FLASH 


FOR var=argl 

TO org2 {STEP 

arg3] 


FRE (0) 


«UT 


GOSUB i n° ligne 


GOTO n° ligne 


HOME 


IF exp THEN 

ordres [ELSE 

ordres] 


GETvor 


INPUT 
[( message *] 






FOR var=arg1 

TO argî (STEP 

arg3] 


FPE(exp) 


GEÎfn fichier, 


GOSUB |n° ligne 


GOTO | n° ligne 




IFexpTHEN 
ordres 




INPUT [chain J 




VDU 


FOR wwvgl 

TO nrg2 [STEP 

arg3] 


HIMEM-TOf 

[non strictement 

équivalent) 


INPUTlrn°fichie 


GOSUB 


n°lgne 


GOTO j n° ligne 


CLS : mode texte 

CLG : mode gra 

phique 


IFexpTHEN 
ordres IEISE 

ordres! 


GETS var ou 
MEYS(tps] 


INPUT [chain ;] 


INPUT* n" fichier 
var IwrJ 

(idem GET) 




FOR var=argl 

TO arg2 [STEP 

ara3] 


FREiexpl 
FRE(chainj 




GOSUB n" ligne 


GOTO it° ligne 




IFexpTHEN 

ordres [ELSE 

ordres] 


INKEYS 


INPUT [chain ;] 

var [,var.,.j 


INPUTIn fichier 
vor [,var...] 




FOR verbal 
TO crg2 [STEP 

arg3] 


FHElexp) 


GET» n 5 fichier, 


GOSUB n° ligne 


GOTO n" ligne 


PRINT « touche 


IFexpTHEN 


GET var 


INPUT 
['- message » ;] 


INPUT /^fichier 




FOR vor^argl 

TO argî [STEP 

arg3j 






GOSUB n° ligne 


GOTO n° ligne 




iF exp THEN 

ordres [ELSE 

ordres] 


KÉïS 


INPUT [chain ;J 






FOR var=arg! 

TOarg2[STEP 
arg3j 


FRE[exp] 




GOSUB n°figne 


GOTO n° ligne 




IF exp THEN 

ordres [ELSE 

ordres! 


■ INKEYS 


INPUT 
|« message i ;] 

vor[,var...I 


fNPUJf» 8 fichier 




FOR var=argl 

TQarg2(STEP 

arg3] 


FRE(exp) 




GOSUB in ligne 


GOTO : n° ligne 


PRINT CHRS(3Û 


IF exp THEN 

ordres [ELSE 

ordres] 


KEYS 


INPUT 
[i message i ;] 






FOR var=argl 

TO arg2 [STEP 

arg3! 


FRE(exp) 




GOSUB n° ligne 


GOTO ; n° ligne 


PRINT CHRSI3D 


IF exp THEN 
ordres [ELSE 


KEYS 


INPUT 

[« message » ;] 






FOR var=aral 
ÏOarg2[STE> 

argj] 


MEM 


INPUT . nom . 


GOSUB 


n° ligne 
exp 


GOTO 


n" ligne 


CLS 


IF exp THEN 


■,sr= INKEYS 


INPUT 
[« message » ;] 


INPUT «nom 


FLASH 


FOR var=argl 

TO arg2 [STEP 

arg3] 






GOSUB n" ligne 


GOTO n° ligne 


CLSSn° canal 


IFexpTHEN 
ordres [ELSE 


INKEYS 


INPUT 
[i message ■ ;] 


NPUÏS n" canal 




FOR »ar=orgl 

TO arg2 [STEP 
arg3j 


FRE{0] 




GOSUB n° ligne 


GOTO n° ligne 


CLS 


IFexpTHEN 
ordres [ELSE 


var=INKEYS 


INPUT 
[« message » ;] 
var [,vor...] 






FOR var=argl 
TO arg2 [STEP 

«ri 


FRE(O) 




GOSUB n° ligne 


GOTO n° ligne 


CLS 


IF exp THEN 
ordres [ELSE 


vor=!NKEÏ$ 


iNPUT 
[i message > ;] 






FOR var=argl 
TO arg2 (STEP 






GOSUB n° ligne 


GOTO n 6 ligne 




IFexpTHEN 

ordres [ELSE 

ordres] 




INPUT 

[î message i ;] 






FOS vûr=aral 

TO arg2 (STEP 

arg3j 


FRE(exp) 


NPUTïViîchie 
enreg [.enregj 


GOSUB n° ligne 


GOTO n° ligne 




IF exp THEN 

ordres [ELSE 

ordres] 


INKEYS 


INPUT [chain ;] 
var [,vw,„] 






FOR var=argl 

TO arg2 [STEP 

crg3j 






GOSUB nngne 


GOTO n° ligne 


CLS 


IF exp THEN 


INKEYS 


INPUT var 




PRINT FLASH 1 


FOR vor=argl 

TO arg2 [STEP 

arg3] 




LOAD . . DATA 
var() 


GOSUB :n° ligne 


GOTO ' n° ligne 


CLS 


IFexpTHEN 


INKEYS 


INPUT [chain ;] 




ci:.: ; ,!.:'..■'■'■■ ■ : ■ .■■■:■ .-;.■ ■ 1 . ■ ., . ■ : ■ .'■■;: :: i:\-. 
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TRANS'BASK 



INSTR à LLIST 



tëASICOIS) 

Micro- 
ordinateur 


INSTR 

(INTXTJ 

Recherche de la 
posifon d'une 

choies dti'i une 


INT 

(ENT) 
Partie entière 


INVERSE 

(INVERSE} 

Vidéo inverse ■ 


KIU 

{DETRUIS} 

fichi'ef ''"" 


LEFT$ 

!CAUCH£$} 

fourni! fa' 


LEN 

(LONG} 

■ 


LET 

(FAIS} 
Affectation 


UST 

(LISTE} 
Arfiche bv liçn© 

demandées ' ' 


LUST 

(LISTAGE) 

L'ïie programme 

l'Imprimante • 


ALICE {Tandv MC 10) 




INÏlexp] 




DELETE 
• nomfoh. 


iErTStchoin, 

longueur] 


LEN[chain) 


[LEÎJvar=exp 


LIST[n c lignel 
[Iigne2]] 


lLISI 


AMSTRAD CPC 444 


INSTE'M 
chainl, choin!) 


INTjexp) 






LEFT$(diain, 
longueur) 


LEN(d»nj 


[LET] var=e<p 


LlSTin lignel 
[-Iigne2]] 




AMSTRAD CPC S128 et M 


INSTGijargî 


INÎ(exp) 






lifT$|éoin, 
longueur) 


LENJchœn) . 


jlETj var=exp 


LlSTin lignel 
[-figne2j} ■ 




APPLE 




INT(exp} 


INVERSE 




LEFT$fc&oj& 

longueur] 


LEN(chdn) 


[LEÎ] w -«p 


LlST[n° lignel 
l-ligneî]] 




ATARI 




INT(exp) 






AS. il.N] 


lEN (chainl 


ilET]vo.=e< P 


LlSîln lignel 
[!ign&2î{ 


LIST.fi» 


BBC 


IN5TR(chainl, 
eh ai oï [,arg]) 


!NT[«xp) 


PLOT {utilisation 




LEFTS/ichain, 
longueur) 


LENjchain) 


]LET] vor=exp 


LISTjn lignel 


CTRL B puis LIST 

[n" lignel-n" 

Iigne2| 


CANON X 07 


[NSTR([arg] 
chainl, chain2J 


INT(exp) 




DELETE . non 
fich », t type » 


LÉFTSfchoin, 
longueur}* 


LENjchdn] 


[LET] vor^p 


LIST[n° lignel 
[-Iigne2]] 


LUST [r, lignel, 

n° Iigne2] 


COMMODORE 64 




INTiexp} 






LEFTSjchain, 
longueur) 


LENfthoin) 


[LET] W r=e«p 


LlSÎ[n° ITgnel 
[-figne2]] 


OPEN 1,4 
CMD 1 LIST [n° 
icnel, n° iigneJ] 


EXL100 




INT(eyp) 






SEGS(chain, 
IN) 


ÎENIchoin) 


[LET] var-wp 


LIST[n° ligneT 
l-tgne!]! 




M5X 


ÏNSTR([ af gl 
chainl, crdn2) 


tMTtexp) 






LEFTS|chain, 
longueur) 


LENfchrwiJ 


[LET] w^p 


LÎSTIn lignel 

[igné! 




ORIC1 




INTlexp] 






LEFT$[choin, 
longueur) 


LEN(chain) 


[LET] wr=exp 


LlSTin lignel 
[■ligne?]] 


LLIST [n° iignel- 
n°!igne2] 


OR1C ATMOS 




INÏM 






LEFTSjchain, 
longueur] 


LENjchoin) 


[LET] var=e*p 


LIST[n° lignel 
[-ligne!]] 


LLIST [n'Iignel- 
n*!igne2] 


SHARP PC 1251 




INT(^p] 






LEFïSjchain, 
longueur] . 


LENfcnain) 


[LET] vu f =exp 


LIST[n° ligne] ' 


LLIST 


SINCLAIR OL 


INSTR 


iHT(exp} 




DELETE mctvi„ ASf|,N) 


LEN( c hoin). 


[LETj yar=e*p 


LlST[n° ligne! 
[-Iigne2]| 


LISÏJn cord 
imprimante 


THOMSON TO 7/70 


INSTR 


iNTispj 






LEFTSféain, 

longueur] 


LEN(chain) 


[LET] var-exp 


UST[n° lignel 
l-ligneSlj 


LIS.LPRÏ:* 


THOMSON MO S 


INSTR 


INÎ(e>pj 






LEFTSjchain, 
longueur] 


LENfchain) 


[LETjvar-exp 


LIST[n° lignel 
[•Itgne2jl 


LIST , LPRT ; . 


Tl 9W4A 


~] ENT{«xp) 










[LET] var=exp 


LIST[n° lignel 




TRSBO 




ONT 




KILL (nom de 


LEFTjfchain, 
longueur) 


LEN(choin) 


.iLET|var=e<p 


LlSTin lignel 


LLIST Klignel- 
n"figna3j 


ZXS1 




INTjexp) 






ch™[TOfin} 


LEN[chain) 


[LET] «r=6Ç 


LiST[n° ligne! 


LLIST [n°iignej 
(COPY: copie l'è 


IX SPKTRUM + 




INT(exp) 


INVERSE 1 




chain (TO fin] 


LEN(chain) 


(LET) vor=exp 


LIST[n 3 ligne] 


LLIST [n°%ne] 


^^agumentnuraéiq(ie;-exp^pres!ran;th^::r- . : , -:a,eureclauseoDtionr.efle": 1 ï ipwfiqoe des ctausw éatavalentes. 
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TRANS'BASIC 



LOAD à ON/GOSUB 



LOAO 

(CHARGE} 
Chofge un pfo- 
gramme en 


LOG 

(LOGj 

Logarithme 

népérien 


MAX 

(MAX) 
Maxima de 
sevx ynfeon 


MIDS 

(PARTIES} 
Donne l« cs-a: 
ieres d'une 
choïne à partir 
du rcnu mdbué 


MIN 

(MIN) 
Minimum de 

deui velours 


MOD 

(MOD) 

Modula 


NAME 

(NOMME} 
.Change le nom 


NEW 

(NETTOIE) 

Efface le 
programme en 


NEXT 

(ENCORE) 
Fin de boucle 

FOR 


ON ERROR 

(SELON} 
ERREUR 

Branchement à 
une séquence 
d'erreur . 


ON/GOSUB 

(SELON/} 
VA VIENS 

Branchement 

suus-prog. 




LOGfexp) 




MID$(chain, 

longueur} 








NEW 


NEXT [var] 




ON var GOSUB 
lAgnl.] 


LOAD « nom 
fichier . 
cassette 


LOG(e*p] 


MAX[var, 


MID$[choin, 
début, [.longueur 


MIN(var, 






NEW 


NEXT [var,.,] 


ON ERROR 
GOTO n° ligne 


ON m GOSUB 
[.""il..] 


10AD . nom 
disquelle 


LOG(exp) 


MAX[var, 


MiD$[chain, 

début, [.longueur 


MINfvar, 
m..) 


vor = argl 
MOD arg! 




NEW 


NEXT [var,.,] 


ON ERROR 
GOTO n° ligne 


ON vor GOSUB 
[,n°ligne2...j 


LOAD [nom 

feq 

(idem cassette] 


LOG(e*p) 




MID$(choin, 
[longueur] 






RENAME ancien 


NEW 


NEXT [var.,.] 


ON ERR GOTO 
n" ligne 


ON var GOSUB 
[, n° ligne2,„! 


LOAD <n° fich: 
nom iich> [cas- 

sette^CIOADi 


L£)G|exp) 




AÊIUI 








NEW 


NEXT vor 


TRAP j n ligne 


ON var GOSUB 
[, n° ligneS— J 


LOAD < nom 
(idem cassette) 


LNlexp) 




MID$(chain, 
début [.longueur] 




var = argl 
M0Darg2 


OPEN 1,8,15. 
< KO : noml = 


NEW 


NEXT [var] 


ON ERROR 
1 GOTO [n° ligne 
1 0Ff 


ON( expGOSUI 
n°Sg n el[n D ^ne2- 


LOAD* nom 

fich • et N.B. 

option 


LOGieip] 




MIDS(chain, 
début, [.longueur 




var = argl 
MOD arg2 




NEW 


NEXT [var...] 


ON ERROR 
GOTO n D ligne 


ON exp GOSUB 

j,n°ligne2...] 


LOAD * nom 

fich >. S (cas- 

nie tf ClC^d; 


LOGiexp} 




début, [(longueur 




var = argl 
MOD arg2 




NEW 


MOT [var. : 




ON var GOSUB 

n° lignel 
[,n°ligne2.„] 


LOAD . ru- 
de progj 


LNfexp) 




SEGSlchain, 








NEW 


NEXT [vor...] 


ON ERROR 
jn° liane 
[STOP 


ON var GOSUB 

n° ligne) 
[, n" Iigne2.„] 


10AD « nom 
fichier »[,R] 


lOG(e*p] 




MiDS(chain, 
début, [.longueur 




vor = argl 

MOD arg2 




NEW 


NEXT [var...] 


ON ERROR 
GOTO n" ligne 


ON var GOSUB 
[, n* ligneY..] 




LNfexp] 
LOG = décimal 




MIDSjcham, 

début, [, longueur 








NEW 


NEXT [var,. .] 




ON var GOSUB 

n° lignel 
[,n ligne2...j 


CLOAO 


LN(exp) 
LOG - décimal 




MID$(choin, 
début, [(longueur] 








NEW 


NB(1 hw...j 




ON var GOSUB 
[,n°ligne2...] 


ODAD . nom 
Fich. 


LN(exp) 




début, [,kmgueur] 








NEW 


NEXT [var,..] 




ON w GOSUB 

n c ligne) 
[, n" Iigne2...] 


LOAD mdvi_' 
nom fich 


LN(exp) 








vor = argl 
MOD arg2 




NEW 


NEXT 




ON «r GOSUB 
n° lignel 

i n 3 ligne!...] 


LOAD . nom 

fich» 
;!derr cciEsettc] 


LOGlexp) 




fc f)Sv,n,- 
début, [.longueur] 




var = argl . 
MOD org2 




NEW 


NEXT 


ON ERROR 

GOTO n s ligne 


ON var GOSUB 
[, n° Iigne2..,i 


LOAD « nom 

fich* 
(idem cassette) 


LOG(exp) 




MIÛS(chain.. 
début, ^longueur] 




MOD arg2 




NEW 


NEXT 


ON ERROR 
GOTO n° ligne 


ON var GOSUB 
[, n°ligne2...j 




LOGjexp) 












NEW 


NEXT 




ON vor GOSUB 

n" lignel 
[, n° Iigne2...] 


LOAD. nom 
de fichier i 


LOG|exp) 




MIDSjchain, 
début, [.longueur] 






NAME ancien 
nom AS nouveau 


NEW 


NEXT [vor...] 


ON ERROR 
GOTO n" ligne 


ON var GOSUB 

i n° ligne!..] 




LNM 




choin (début 
TO fin) 








NEW 


NEXT w 








LN(exp) 




chain [début 
10 fin) 








NEW 


NEXT var 






a«8: argument n!;métiaBe:«»p; «pression ; ehoijni r ;hane aipbanuinê-lque ; odr ; adresse : vor : vaiiabte înam o'^ vorioble) f.] : îridîque une ciaùie optionndie ; 1 Jndiaue des (buses équivalentes. 
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SPÉCIAL PROGRAMMES 



TRANS'BASIC 



ON/GOTO à PRINT USING 



Mîcro- 


la voleur d'une 


OPEN 

(OUVRE) 
Ouverture d'un 
ficfe 


OUT 

(emed 

Ewielo donnés 
indiqué 


PEEK 

(IMAGE) 
Donne le conte- 
nu d'tae adresse 


PLOT 

(ÛESSINE) .. 
Allumé point des 
coordonnées in- 

■: ■ : ; !■:.'■- po: 


POKE 

(GARNIS) 

Ronge, à 
l'adresse indi- 
ouée l'ociei, 


POS 

(POSi 
Posihonneie 


PRINT 

(ECRIS) 
Impression des 

résultats ou 
écriture dans 


PRINT USING 

, ■ L 1} 

Formatage 


ALICE(TondyMClO) 


ON vor GOTO 
n° ligne! j,li- 






PEEK|odr] 


set M 


POKE adr,octet 


PRINT® 


PRINT ap(PR!NT 

TAB |exp},exp 
PRINT e,exp 




AMSTRAD CPC 464 


ON exp GOTO 

n° lignél [,n° S- 

gne2...] 


OPENIN 
OPENOUT 


OUT adr,exp 


PEEKfadr] 


PLOT x,y l>ut] 
masquée 


POKE odr,exp 


POS [t? canal,] 

N 


PRINT exp ],exp 
PRINT* n°cona 
exp [,exp...] 


PRINT USING 


AMSTRAD CPC 6128 «t 664 


ON «p GOTO 

n s !ignel [,n°li- 
gne2...] 


OPENIN 
OPENOUT 


OUT adçexp 


PEEK(adr) 


HOTx^lcoul 

,roodeI 


POKE adr.exp 


POS in° canal,] 
(arg) 


PRINT exp i,exp 
PRINTSn°cana 
exp |,exp...] 


PRiNT USING 


APPLE 


ON var GOTO 
n° ligne! |,n° !i- 

gnelL.j 


OPEN nom de 




PEEK(odr) 


PLOT *,y 


POKE adr,octet 


pos m 

POSfÛj; position 
en ligne couranie 


PRINT 


choin 

va,.. 


Usage spécifique 
pour for ma loge 


ATARI 


ON vor GOTO 
H ligne! [,n* lî- 
. gteî„.) 


OPEN # n° fi- 
chier mode, code 
contrai,* nom 6di» 




PEEKIadr) 


PLOT *,y 


POKE adçodel 


POSITION x,y 


PRINT exp 

PRINWfab 
enreg [,enreg...] 




BBC 


ON ^ GOTO 
gnel.] 


n° fichier = 

|OPENIN[leci.) 
)QPENaUT(écril| 


B-'L. T «:org: 
JGE" : opêfoiior 


?adr 


MOVE x,y 
PLOT4 
cf.rncweePLOTarç 


?adr. octet 


POS position en 
ligne courante 


PRINT exp Lexp' 
PRtNTfn°fich, 
enreg [,enreg...] 


opérateur de 
format ^ 


CANON X 07 


ON exp GOTO 

n° ligne! |,n° li- 
gne2...] 




O'.! acr.exp 


PEEK(adr) 


PSETx,y 


POKE adr,exp 


POS (exp) 


PRINT ex [,exp] 
PRINT* nom fich 
enreg [*nreg.„] 


PRINT USING 


COMMODORE 64 


ON vor GOTO 

if ligne', in" li- 
gne2..,j 


OPEN erg, jlcass 
jOkt (S disk 
[lécr^nomfich 




PEEKJadr) 




POKE adr,odet 


POS(arg] : posi- 
tion en ligne 
courante 


PRINT e/piexp] 
PRINÏiÎFi'&h 
enreg j^nreg...] 




m îoo 


ON vor GOTO 

n° ligne! [,n° li- 

gne2.„) 


OPEN »n° Ben 

n° d'équiperoenl 




CALL PEEK 
(odr,vart,vor2...] 


CALL PLOT 
.char.,x,y 


CALL POKE 
(adr,varl,vor2...) 


LOCATE x,y 


PRINT exp EffijBJ 
PRINT ïn°fich 
enreg |,énreg..,] 


PRINT USING 


MSX 


ON exp GOTO 

nMignel[,n°li- 

sj*M 


OPEN nom 

fichier 


OUT adr,exp 


PEEK(odr) 


PSEHy.[,cou!.} 


POKE adr, 


POSiarg] 


PRINT exp 

PRINT8n°fïcb, 


USING format 


ORIC1 


ON var GOTO 
n° lîgnel [,n° li- 
gne!...] 




POKE 3XX,valeur 


PEEK(udr) 


CURSET x,y,code 
N.B. PLOT à une 

outre signification 


POKE adr,octel 


CURSOfi x,y 
POS : position en 
ligne courante 






ORIC ATMOS 


ON var GOTO 

" gne!..:] " 




POKE 3XX,valeur 


PEEK(adr) 


CURSET x,v,code 
N.B. PLOT à une 
autre signification 


POKE adr,octet 


CURMOVx,you 
PRINT 






SHARP PC «51 


ON var GOTO 
fi'" licjnel [,r' li- 
gne!...] 






PEËK(adr] ■ 




POKE adr,octet 


CURSOR x 


PRINT exp 

PRINT ï 
nH'diwr... 


USING formai 


SINCLAIR QL 


ON m GOTO 
n° ligne! W li- 
■ gw2.„] 


OPEN S 




PEEK(adr) 
PEEK_W(adr) 

PEErUIadr) 


POINT x,y 


POKE adr,odel 

POKE_Wadr,eep 
PQKE_L adcexp 


AT x,y ; 


PRINT exp [,expl 

PRINTfln' canal 




THOMSON TO 7/70 


ON ht GOTO 
ri? ligne! [,«° li- 
gne?...] 






. PEEK(adr) 


PSËT 


POKE adr.cdet 


LOCATE x,y 


PRINT exp [,exp] 


PRINT USING 


THOMSON MO S 


ON™ GOTO 
gne2.!'.| 






PEEK(adr) 


PSÉT 


POKE adr,octet 


LOCATE x,y 


PRINT exp [,exp] 


PRINT USING 


Tl W/4A 


ON wr GOTO 
n° lignel [ ,n° li- 
gne!..] 












autre signification 


PRINT e*p [,exp] 
N.B. DISPLAY 

équivalent 




TRS80 


ON vor GOTO 

n° ligne! [,n° li- 

gne2...| 


OIW.UO.I 
n° nom ; sep 


OUT port/Ktel 


PEEK(adr) 


SETi*,y] 


POKE adr,octet 


POS(0] 


PRINT var 

PRiNTSn'fîch-. 
enreg [,enreg,..]' 


PRINT USING 


ZX81 








PE£K|adr) 


PLOT x,y 


POKE adwiet 


PEINT AT x,y 


PEINT 

[• mesîcge > ;] 




ZX SPECTRUM + 




OPENSn fichier 


OUT port, odef 


PEEK(adr) 


PLOTx,y 


POKE adr,ociei 


PRINT Aï x,y 


PRINT 
[* message >;] 




■g ■:.-_.■■■::■■'. -'e--;qîje:eip:eiDr«îion;rfKii(n|ichoifrea'phanufné(iaiJE;flt!r : . -.', équivalentes. 
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UWOMIZE 



TRANS'BASIC 



RANDOMIZE à SAVE 



-■^SARDEj 


READ 

(EMPLIS! 
Lecture d'une 
lisle DATA 


REM 

(REM) 
Insertion de 


RENUM 

(RENUM) 
Rènumérotdtion 
de; lignes de 
programme 


RESTORE 

(RESTAURE) 

Replacement en 
début de liste 
DAIA 


RESUME 

(REPRENDS) 
Retour [uste 

avant le débran- 
chement d'erreur 


RETURN 

(REVIENS) 

programme re- 
tour derrière 
SOSUB ■■ 


RIGHTS 

(DROITES) 
Donne fe 
caractères 

de droite d'une 
chaîne 


RND 

(HSD) _ 
Tirage d'un 
nombre 

aléatoire 


RUN 

(£ffî 

Exécution d'un 
programme 


SAVE 

(COPIE) 
Sauvegarde d'un 
programme 




READ vor 
[*ar...] 


REM 
commentaire 




RESTORE 




RETURN 


RIGHTSfchain, 
longueur) 


RND(arg) 


RUN 




ÏANDOMIZE 
[exp] 


READ vor 
1mA 


REM 

commentaire 


RENUM 


RESTORE 
[aligne] 


RESUME 
[n° ligne] 


RETURN 


RIGHTS(choin, 
longueur] 


RNDflorg)] 


RUN [n° ligne] 
RUN [chah] 


SAVE, nom fkh. 


M 


READvar 


REM 
commentaire 


RENUM 


RESTORE 
[n 5 ligne] 


RESUME 
[n* ligne] 


RETURN 


RlGHTS[cham, 

longueur] 


RNDKarg)] 


RUN [n ligne] 
SUN [chain] 


SAVE, nom Mu 
disquette 




READ vor 


REM 

commentaire 




RESTORE 


RÉSUME 


RETURN 


RIGHTS(chdn, 


RND(org) 


RUN [n° ligne] 


SAVE, nom heh 


RND(arg) 


READvar 
[,var...] 


REM 




RESTORE 




RETURN 


ASfcN) 


RND(arg) 


RUN 


SAVE- nom M» 
(cassette, cl 
CWE) 


RND(arg) 


READ var 


REM 
commentaire 


RENUMBER 
[début] [,pos] 


RESÎOREfe.p) 


ON ERROR Of 


RETURN 


RIGHTS[chain, 
longueur] 


RND(arg) 


RUN 


SAVE, nom <ich» 

[chain] 




READ var 
[,var...] 


REM 
commentaire 




RESTORE 
K ligne] 


RESUME 
[n° &gne] 


RETURN 


RIGHTSIchain, 

longueur) 


RND(arg) 


RUN 
EXEC adr 


SAVE, nom Hch. 
et nb options 


8ND{T1] 


READ var 
[,var...l 


REM 
commentaire 




RÉSTORE 




RETURN 


RIGHTSIchain, 
longueur] 


RNÛ(arg) 


RUN K ligne] 


SAVE .nom nch. 

8 
cassette cftWE) 


BANDOWIZE 


READ vor 
|,wr...I 


REM 


RENUMBER 
[début] \,M 


RESTORE 

K ligne] 




RETURN 


SEG$[chain, 
l,N] 


RND 


RUN [n° ligne] 


SAVEf.n 
nom de prog » 




READ vor 

Lvar.,.1 


REM 


RENUM 


RESTORE 

[n» ligne] 


RESUME 
[n° ligne] 


RETURN 


RIGHîSIchain, 
langueur] 


RNDÎorg] 


RUN Cligne] 

RUN nom fichier 


5/W.TKWlfeh» 


| RND(org) 


READ var 
[,var...j 


REM 




RESTORE 




RETURN 


RIGHT${chain H 
longueur) 


RND(org) 


RUN [n° ligne] 


CSAVE 


1 RND|argl 


READ vor 

[,vor...] 


REM 




RESTORE 




RETURN 


RiGHTSjchnin, 
longueur) 


RND(org| 


RUN [n" ligne] 


CSAVE 


. RANDOM 


READ var,... 


REM 
commentaire 




RESTORE 
' K ligne] 




RETURN 


RIGHTSfcnoin, 
longueur) 


RND(org] 


RUN n° ligne 


SAVE «nomfich. 


ÏANDOMIZE 
N 


RÉAD vor 
[.var...] 


REMARK 


RENUM 


. RESTORE 
V ligne] 




RETURN 


m 


RND[org) 

nomfich 


RUN 
EXEC mdvi_ 


SAVE mdvL 




READ vor 

l,vor...} 


REM 




RESTORE 




RETURN 


RIGHTSichain, 
longueur) 


RND 


RUN [n° ligne] 


SAVE «nom fich* 




READ var 

[MC] 


REM 




RESTORE 




RETURN 


RIGHTS[chain, 

longueur) 


RND 


RUN [n° ligne] 


SAVE «nom fich» 


ÏANDOMIZE 
arg 


READ var 
[,var...] 


REM 


RES [n° ligne 
début, pas] 


RESTORE 




RETURN 




RND 


RUN 


SAVE .nom hch. 


RANDOM 


READvar 
[,w..| 


REM 


RENUM 

n° ligne début, 

pps 


RESTORE 


RESUME 
[rf ligne] 


RETURN 


RIGHTSIchain, 
longueur) 


RND[arg) 


RUN [n° ligne] 


SAVE «nomfich» 


ÎAND|arg] 




REM 








RETURN 


choin(débutTO) 


RND 


RUN 


n° ligne 




lAND(argl 


READvar 
[,«r...] 


REM 




RESTORE 

!i"ri| 




RETURN 


chain(débulTO) 


RND 


?UN 


\ n T 




: ■ -•g.'msptr 


mérique;exp:s 


sressbn : chaifn 


:choinealphaiwir 


éricue.-adr :adrï 


sse;var:variabl 


parade variable 


;.];indiqueunec 


cuse optionnelle; 


{: indique des clauses équivalentes. 
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SPÉCIAL PROGRAMMES 

1 VI 77H£ DECEMBRE 1S85 



TRANS'BASK 



SCRN à STR$ 



ORORE BASIC 

(BASICOISj 

Micro- 
ordinateur 


SCRN 

(ECRAN) 

couleur du pain 
de coordonnées 

spécifiées 


$EG$ 

{{ËXTRSI 
Extrait une 

chaîne d'une 
plus gronde 


SGN 

(SGN) 


SIN 

m 

Sinus 


SPC 

(ESP) 
Génère une 
chaîne 
d'espaces 


SQR 

(SAQ 


STOP 

(ARSEÎ) 
Arrêt 

d'exécution 


STRINGS 

(CHAINSj 

uns états 


SIRS 

mm) 

Change une 
expression nuis* 
rique en une 

chain, 


ALICE (Tandy MC 10) 


POINTfx,/) 




SGN(exp) 


SINfexp) 




SQR(exp) 


STOP 




ST8$H 


AMSTRAD CPC 4M 


TEST|x,y) 




SGNfexp) 


SINjexp) 


SPCforg] 

(utilisé avec 
PRINT) 


SQR(exp) 


STOP 


STRINGS 
(longueur, chain 


STR$(arg 


AMSTRAD CPC 4128 et 664 


TESTAI 




SGNfexp) 


SINfexp) 


SPCfarg) 

[utilisé avec 

PRINT) 


SQRfexp) 


STOP ■ 


STRINGS 

(longueur, chain 


STRSfarg 


APPLE 


SCRNfx,y) 




SGN(exp) 


SlW(exp) .. 


SPCforg) 
■ PRINT) 


SQRiexp) 


STOP 




STRSfarg 


ATARI 






SGN(exp) 


SINfexp) 




SQR(exp) 


STOP 




STRSfarg) , 


BBC 


POINT(x,y) 




SGN(exp) 


SIN(exp) 


SPCforg) 

(utilisé avec 
PRINT) 


SQR(exp) 


STOP 


STRINGS 
f longueur, chain| 


STRSfarg 


CANON X 07 


POINÏ(x,y) 




SGN(exp) 


SINfexp) 




SQRfexp) 


STOP 


STRINGS 
(longueur, chain| 


STfi$(arg- 


COMMODORE 64 






SGNjeKp) 


SINfexp) 


SPC(arg) 

{utilisé avec 

PEINT) 


SQRfexp) 


STOP 




STRSfarg) 1 


EXL300 




SEGSfchoin, 
oral, org2] 


SGN(exp) 


SINfexp] 




SQR(exp) 


5TOP 




STRSfarg) 


MSX 


POINÏfx,y) 




SGN(exp) 


SINfexp) 


SPCfarg) 


SGR(exp) 


STOP 


ÎTBNGS 
(tangueur, ctain] 


STRSforg) 


ORfC 


POINT(x,y) 




SGNfexp) 


SINfexp] 


SPCforg) 


SQG(exp) 


STOP 




STRS(arg) 


ORIC ATMOS 


POINT j^y) 




SGNfexp) 


SINjexp) 


SPC(arg) 


SQRfexp)" 


STOP 




STRS(arg| 1 


SHARP PC 12S1 






SGN|exp) 


SINfexp) 




SQRfexp) 


STOP 




STRSfarg) 


SINCLAIR QL 








SINfexp) 




SQRfexp) 


STOP 




Automatique 
org 


THOMSON TO 7/70 


POINT(x,y) 




SGN(exp) 


SIN|exp) 


SPCfarg) 


SQR[exp) 


STOP 




SIRSW 


THOMSON MO S 


POINTfx,y) 




SGNfexp] 


SIN(exp) 


SPCfarg) 


SQRfexp) 


STOP 




siiSH 


Tl 9Î/4A 




SEGSfchcrin, 
orgl, org2j 


SGNfexp) 


SINfexp) 




SQR(exp) 


STOP 




siiSH 


TKSSO 






SGNfexp) 


SINfexp) 


SPqorg) 


SQRfexp) 


STOP 




SUSM 


ZX81 






SGNfexp) 


SINfexp) 




SQRfexp) 


STOP 




SIBM 


ZXSPECTRUM* 


ATTR(x,y) 




SGNfexp) 


SINfexp) 




SQRfexp) 


STOP 




«H 


arg: argument numérique ;exp r-expressbnjtlwî(ii] :choinÉolphonumérrq«e;edr: adresse ; vor : vurlable Inom de variobte) [-] : indique une dause oplionrelle ; îiiridiquedestiauseséquivalenres. 
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' 



TRANS'BASIC 



SWAP à WIDTH 



cwemde 


SYSTEM 

{SYS} 
Quitte le Basic 

dans le système 

d'sxo ta italien 


TAN 

(TAN) 

Tangente 


TEXT 

(TEXTE) 
Passage en 

TEXTE 


TROFF 

{TROFF) 
Annule TSON 


TRON 

{TRON} 

exécution, le n 6 
de ligne! exétui 
fées 


USR 

mit} 

îfimsniet une 

programmées 

langage mocfiine 


VAL 

(NBRE} 

Donne la raie» 
numérique d'un* 
chaîne 


WAIT 

{ATTENDS} 

Suspend un 
programme 
pour un temps 


WHILE/ 
WEND 

{TANT QUE 
FAIRE) 

donné 


WIDTH 

{LONGUEUR} 
Défiait ta- 
longueur max: 
rfes lignes 
imprimées 






TAN(e*p) 










VAL(chain) 












ÎAN(exp) 




TROFF 


TRON 




VAL(chain) 


WAIT adr, 
argl [.grçî] 


WHILE condi- 
WEND 


WIDTH val 


W1ND0W 

- : échange 




SfNfev) 




TROFF 


TRON 




VALichain) 


WAIT dr, 
orgT |,arg2] 


WHILE condi- 
tions srdre 
WEND 


WIDTH val 






TANlexp) 


TEXT 


NOÎRACE 


TRACE 


USR(poram.} 


VAL|chain} 


WAIT adr, 
argl [,srgîj 




POKË 32, va! 
POSE 33, vol 




8YE 




GRAPHICS org 






USRJparam.} 


VALichain] 






POSE s;, val 
POKE B3, va! 




DISK 


TAN(exp) 


MODE arg 


TRACE OFF 


TRACE ON 


USRIparam.) 


VAL(chain) 




REPEAT orcre 
UNTIL condition 


WIDTH ™l 






TAN(exp) 




TROFF 


TRON 


USR(adr,arg) 
prog 


VAL(cham) 












TAN(exp) 








ISflfeoraBJ 
[cf.mantttlrSYS] 


VALichain; 


WAIT adr, 
argl j,argî] 


WHILE condi- 
Lion- ordres 
WEND 








TANiexp) 










VAL(cboin) 


RAUSEfaroJ 






$m? 




ÎAN(exp) 




TROFF 


TRON 


USREchifb] 

M) 


VAL(ctwin] 


au Ire fonction 




WIDTH vol 






TANj&ïpJ 


TEXT 


TROFF 


TRON 


USfi(porom.) 
&(param.| 


VALichain) 


WAIT arg 

N.B. arg en 100' 

de seconde 


REPEAT ordre 
UNTIL exp 


POKE 49, w.1 






TAN|e*p) 


TEXT 


TROFF 


TRON 


USR(pcrom.j 
&(poram.] 


VAUchain) 


WAIT arg 

N.B. arg en 100* 

de seconde 


REPEAT ordre 
UNTIL exp 


POKE 49, vol 






TÀN|exp) 








CAU & adr 


VAL(chain) 


WAFTexp 










TANM 










automatique 
AS 


PAUSE arg 


REPEAT ordres 
END REPEAT 


WIDTH val 






TANtexp) 




TROFF 


TRON 


US8|p D ram.) 


VAL(chain) 












TAN[exp) 




TROFF 


TRON 


LISR(param.) 


VAL|chain] 












TAN(exp) 




UNTRACE 


TRACE 




VAL(chain) 










SYSTEM 


TANfexp) 




TROFF 


TRON 


USSlporoB.) 


VAL(chain) : 


WATT report, 
masque, sélection 










TAN(exp) 








USR(odr) 
(cf. CAU) 


VALichain) 


PAUSE org 










ÏAN(etp) 








USR|odr) 
(cf. CAU) 


VAL(chain) 


PAUSE arg 






■ ..■•■■■,: ■ . ■ ■ .. . ■ ■■■.. . ■ . .: . . : ■ :■ , : . 
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4* 




VOYAGE 
DANS 



LA 3 e DIMENSION 



3D animera pour vous dans l'espace 

tout ob jet préalablement créé , 

grâce à des commandes de rotation , 

de translation, de zoom et de mémorisation. 



Chaque objet est défini par ses coordonnées 
(X, Y, Z) dans un repère en trois dimensions 
lui-même disposé par rapport à l'écran par ses coor- 
données planes (X, Y). Chaque point peut être relié 
au précédent afin de tracer une ligne (1 pour tracer, 
pour allumer le point simplement). 
Les objets ainsi créés peuvent : 

— tourner autour des axes oX, oY ou oZ (comman- 
des X, Y, Z) ; 

— être agrandis ou réduits (commandes +, -) ; 

— se déplacer sur l'écran (commandes I, J, K, M). 
Lincrémentation de chaque fonction peut être modi- 
fiée par la commande 2, l'écran effacé ou pas après 
chaque dessin (commande à bascule 1). 

Par l'enregistrement d'une séquence de cent com- 
mandes au plus (commande SPACE), une certaine 
animation est ainsi réalisée au moment de sa resti- 
tution (commande E). 

Les fonctions principales sont affichées par un menu 
qui parle de lui-même : Création d'une figure. Visua- 
lisation, Correction, Aide et Fin. 
Enfin, voici les coordonnées d'un « objet » en seize 
points pour vous faire la main : (-5,-5,5,0) 
(-5,5,5,1) (-5,5,-5,1) (-5,-5,-5,1) (-5,-5,5,1) 
(5,-5,5,1) (5,5,5,1) (5,5,-5,1) (5,-5,-5,1) (5,-5,5,1) 
(-5,-5,-5,0) (5,-5,-5,1) (-5,5,-5,0) (5,5,-5,1) 
(-5,5,5,0) (5,5,5,1). 

Eric Canovas ■ 
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10 REM I 


structions à a 


20 REM 




50 REM ( 


..) Eric: CANOVAS 


40 REM 




50 REM * 




60 CLS 




70 PRINT 


TAB(19) "3D" 



120 


REM Menu 


130 


PRINT 




PRINT TABU0>"Le5 options : " 


150 


PRINT 


160 


FR1NT"(1) Création d'une -fig' 


170 


PRINT" (2) Visualisation" 


tFW 


PRINT" (3) Correction" 


190 


PRINT" (4) Aide" 


200 


PRINT" (5) Fin" 


210 


INPUT" (U-Ci) ")R 


220 


IF R<1 OR R>5 THEN 210 


230 


IF R=l THEN GOSUB 330 


240 


IF R=2 AND NO0 THEN GOSUB 5 


250 


IF R=3 AND NO0 THEN GOSUB 1 


260 


IF R=4 THEN GOSUB 1210 


270 


CLS 


280 


IF R<>5 THEN 130 



330 CLS 




340 PRINT"Option Créa 




350 PRINT 




360 INPUT"Nombre de p 




370 INPUT"Origine du 




3B0 FOR 1=1 TO N 




390 CLS 




400 PRINT"Option Créa 


ion de 


410 PRINT 




420 PRINT" Vecteur no" 




430 1NPUT"X ";X<I) 




440 INPUT"Y "iY(D 




450 INPUT"Z "(Z!I) 




460 INPUT"Trace avec 




470 NEXT I 




4B0 RETURN 




490 REM 








510 CLS 




520 D=I:A=0! B=0:C=0;E 


0: J-0: 


530 PI=3. 141592: A0»=PI 


'8:B0=Ê 


540 IF V=i THEN CLS 




550 LOCATE 1,1: PRINT" 


h- XYZA 



l[E0=l!R0=10 



560 FOR 1=1 TO N 
570 X0=X (I ><C0S(A>«C05(B)+Y H 
580 Y0=Y(I)*COS<ftl#COS(C)+ZC 
590 Z0=Z(I)*CÛStB)*CO5(C)+X<] 

:s x=d* ( X0-Y0*siN (Pi /s: 

iY=24B-D*(Z0-Y0*COS<F 
■(I)=l THEN LINE (XI,' 



NEXT I 

K<>32 AND K<>69 THEN L-K 

E=l THEN M=M+i:k=E<M) : GO' 

IWKEYtlIF LEN(K*>=0 THEN 1 

M=J THEN E=0:J=0:M=0 

K=0 THEN 650 

K=32 THEN J=J- ( J< 100) :E ( J 

K=69 AND J>0 THEN E=1:M=0 

K=43 THEN D=D1-E0 

K=45 THEN D=D-E0 

K=88 THEN C=C-fC0 

K=65 THEN C=C-C0 

K=99 THEN B=B+B0 

K»66 THEN B=B-B0 

K=90 THEN A=A+A0 

K=67 THEN A=A-A0 

K=73 THEN O0=G0+R0 

K=77 THEN C0=O0-R0 



=74 THEN O=C-R0 
=75 THEN O=O+R0 
=48 THEN A=0:B=0:C=0 
=49 THEN V=-(V=0) 
=50 THEN GOSUB 880 
:<>83 THEN 540 

RETURN 

CLS 

PRINT "Incréments : " 



900 PRINT 
910 INPUT 
920 INPUT 

930 INPUT' 
940 INPUT ' 
950 INFUT' 

970 RETURN 
780 REM 

990 REM (3) 

1000 FOR 1= 



1050 

1060 pr: 

1070 PR 



1120 RETURN 



150 INPUT"Y 
160 INPUT"Z 
170 INPUT"T 
1B0 RETURN 
190 REM 
200 REM (4) Ait 



1280 PRINT"A,B,C : 



TABU6) Z 



1 PRINT"+- 
I PRINT"0 
î PRINT"! 



1360 FRINT" espaci 



I : déplace le repère; 
iom avant et arrière" 



PRIMT"S : pour sortir d 




PRINT 






PRINT "<RETURN> 






K*»INKEY*i IF K* 


>CHR*(1 


) THEN 


RETURN 






REM Adaptation 






REM 






REM LINE (XI, Yl 


-(X2,Y2 




nt (XI, Yl) au p 


Jint <X2 


Y2> 


REM PSET(X,Y) ! 


allume 


e poin 
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LA GÉNÉALOGIE 
A LA PORTÉE 
DE TOUS 



Votre arbre aaeestra l 

co mmence à se couvrir 

de nombreuses feuilles ? 

Le pro gramme Généalo g ie arrive à point 

pour vous aider à le fe uilleter. 

Diverses options sont à votre dis position (expliquées 

par la commande « ? 4 mais saebei q ue le premier appel 

à l'une d'entre elles garnit la feuille de l'arbre en 

et que les ap pels suivants vous promènent 

sur la branche considérée, 4 




Denys Schmitt I 



10 REM Arbre 


qénéa 






20 REM D.Schm 


itt 5 


-1983 




30 ROI Instru 




= spécifiques à adapter 


istées 










40 GOSUS I12E 








50 GOSUB 1271 








60 Z*="Option 




M,C,E,N,K,R,I,L,S,FJ ": 




30 








70 IF X#="P" 




110 






THEN 


340 




90 IF X*="C" 


!"HEN 470 




100 IF X*= 




THEN 






110 IF X*= 




THEN 


a la 




120 IF X*= 




THEN 


840 




130 IF X*= 




THEN 


890 




140 IF X*= 


I' 


THEN 


940 




150 IF XS= 


L" 


THEN 


GOSUB 1620: GOTO 50 




160 IF X*= 


H 1 


THEN 


1700 




170 IF X*= 


F" 


THEN 


PRINT"Terminé , ':END 




180 IF X#="?' 


THEN 


1B90 




190 GOTO 60 
















210 IF Pi-0 THEN K 


PsGOTQ 50 




220 Z*="Nom a 


J père "tSOSUB 1230 




230 IF X*-"" 


DR N> 


99 THEN 60 




240 N=N+lsN*< 




P*lNJ= M E0"+STR*(K> 




250 P=NjP*(K) 


=P*(K 


+"P"+STRS(Nt 




260 IF M<H THEN 50 






270 P*<N>=P*< 


J> + "C 


-fSTR*(lil :P*(M)=P*(M>+"C 


+STR* ( N 


290 KM-KlKI=fl 


KF=N 


GOSUB 1070 




290 FOR L=0 TO 9: I 


EM(L)<0 THEN 310 





300 K=EM(L) :GOSUB 1460: P=N:SDSUB 




310 NEXT L:K=KM:GQTO 50 




320 : 








340 IF M>=0 THEN lf=lï:GOTO 50 




350 Z*="Num de la mère ": GOSUB 1 




360 IF X*=s"" DR NM99 THEN 60 




370 N=N+1 : N* (N) =X*: P* CN> = "E0 , '+STR* (K) 


380 M=N:P*(K)=Pt(K)+"M" + STRt(N) 




390 IF P>0 THEN 50 




400 P*(N)=P$CN1+"C"+STR*<P>:F$<P 


=P*(P>+"C"+STR*(N 


410 KI"l=K:KI=PiKF=N:GDSUB 1070 




420 FOR L=0 TO 9: IF EM(L)<0 THEN 


440 


■130 K=EM(L> s GOSUB 1460: M=N: GOSUB 




440 NEXT l_:K=KM:GOTO 50 




430 : 








470 IF C>=0 THEN K=C:GDTO 50 




480 Z*="Nom du conjoint '■ : GOSUB 




490 IF K*~-" OR N5-199 THEN 60 




500 XM$=X* 




510 ZS-"Nom CGLirant=père ou mère 


<P/n> ":GOSUB 12 


520 IF X*="P" THEN Z*= M M" : GOTO 5 




530 IF X*""M" THEN Z*="P":GOTO 550 


540 GDTO 50 




550 N=N + 1:N*<N)=XM#:P*(N>=' , C' , +STR*<K> 


560 C=N : F* ( K ) =P# (K ) +" C" +STR* < N > 




570 FOR 1=0 TO 9! IF EdKB THEN t 




590 P*(N)=F*(N> + M E"+CHR*(48<-I)+STR*iE(I)) 


590 PifEd) >=P*(E<I) >+Z*+STRS!N> 
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600 NEXT I 


GOTO 50 








610 


























630 
640 


F X*=' 


'■ THEN 60 


"sGOSUB 1230 






650 


=VAL( 


*) iIF I<0 DR I> 


THEN 60 






660 


F E(I 


>=0 THEN K=E ( I ) 








670 Z*=' , NOfi 


de 1 enfant "l 








èW 


F XJ= 


" DR N>199 THEN 


60 






700 






mère (F/M) 






33 












710 


F X*= 




GOTO 740 






720 


F X*= 


H" THEN ZÏ= ,, P" 


GOTO 740 






730 GOTO 55 














*<N>=XM#:P*<N>= 


*+STR*(Kl 






750 E<IJ=N 


P*!K>=P*(K)+ , '£" 


i-CHR* < 40+1 ) +STR$ ( N) 




760 IF C<0 


THEN 50 








770 Pi (N>'-F* (W) +Z*+STR#4C) 


P*(Cl=F*^C)+ , 


E"+CHR* 


48 


+ I)+-STR*<N 










730 GOTO 55 










790 
300 






















910 


*="ïndice ma;: i -"*-STR* 


N)+" ": GOSUB 


1230: GOTO 


60 












320 












830 




REM Opt 








840 


*="Indice à afficher 


actuel ="*STR*CK>+"> 




OSUB 


1230 










830 


■■VfiL. t 


*):1F I<0 OR I>N THEN 60 






030 


:=iiBora 50 


















390 PRINT T*,T*:PRINT"Nom 










RINT" 










910 




*:GOTO 50 








920 
















940 


î*-"Indite enfant à ch 


inger " : GÛSUB 


1230 




950 


F £*= 


■' THEN 60 








960 


«VAL< 

F E(I 


*) : IF I<0 OR I> 

<MS 1HEN 60 


? THEN 60 






980 


¥-"No 


vel indice pour 


"+X**" ":G0SU6 1230 




990 


F X*= 


" THEN 60 








1000 


J=vAL 


X*> ! IF I=J THEN 


1780 






1010 


IF J<0 OR J>9 OR E(J> 










EiJ)-E(IÏ:E(I>=-llS£iSLIS 1390 






1030 


IF 1X0 THEN 50 








1040 


KM=K: 


I=Ks KF=Cl GOBUB 


070.-GOTO 50 






1050 












1060 




REM Transfert 






1070 


K=KliQOSUB 1460iFOR I 


=0 TO 9sEM<I) 


E < I ) : NE 


T 


1030 


K==KFlBOSUB 1460:FQR I 


=0 Tû 9iE<I>=É 


M(I)ï NEXT 


1090 


GOSUB 


1390: K=KMi RETURN 






1100 












1110 
















1120 


CLS:D 


M Nf <200> ,P*C200) 






1130 


N=-1:K=0:GOSUB 1200 








1140 


-[-*='■" 


FOR 1=0 TD 39:T 


fc=T*+" " : NEXT 


I 




1150 


PRINT 


60SUB 1620 








1160 




THEN RETURN 








1170 


PRINT 




"îGOSUB 1230 






1180 


N*<0> 


X*:P*t0)="":N=0 


RETURN 






1190 












1200 


P— 1: 


=-l:C=-liFOR 1= 


S TD 9lE(I)=- 


]NEXT I 


RE 


1210 
1220 
1230 




REM Acquis 

T* , T* , T* 








PRINT 








1240 




H*[ i«=' " :INPUT 


XI: RETURN 






1250 












1260 




REM ftffiC 












1270 


GOSUB 


1460: CLS 








1230 




Père i "iîIF P> 


=0 THEN PRINT 






1290 


PRINT 


PRINT"MÊre ; " î 


IF H>=B THEN 


PRINT N 


(M 


1300 


PRINT 


F'RINTjFOR 1=0 TO 39î PRINT"-" 


iNEXT I 




1310 


PRINT 


NS<K> 








1320 


FOR I 


TO SÇlFRItjT " 


-";:N£XT 1 






1330 


PRINT 


PRINT"Conjoint 


"!lIF C>=0 THEN PRINT 


N*<C 












1340 


PRINT 


PRINT"EnfantB : 


":PRINT 







FOR 1=0 TO 9:IF E<I)>=0 THEN PRINT I:"- 

NEXT II RETURN 

. REM Codage 

X*= ,, ":IF P>=0 THEN X4="P"+STR* (P) 

IF M>=0 THEN X*=X*+"M"+STR*(M> 

IF C>=0 THEN XS=X*+"C"+STR*<C> 

FOR 1=0 TO 9: IF E ( I ) >=0 THEN X*=X#+"E ,l i 



REM— 



:>-X*; RETURN 



— Déci 



) BOSUR 1200:X*=P*<K>:Z=0: ) 
I RETURN 

I I=l+i:IF I>J THEN 1510' 
I ZS=MID4<X*,I,l)!lF Z*="" 
I X=ASCfZ$> : IF 

Z=0 THEN Z=1:Y$=ZS:Y=1:GOTO 1470 
Z=0 THEN RETURN 
3: IF Y+i>=I THEN 1470 
Y$="F" THEN P=VAL(MID#(X*,¥+1 ,I-Y-1! ) : GOTO 

Y#="M" THEN M=VAL(MID*<X*,Y+1,I-Y-1>):GOTO 

YS="C" THEN C=VAL(MID*<X*,Y+l,l-Y-i>> J GOTO 

Y#<>"E" THEN 1580 
Y*»MID*(X*,y+i,l! :Z*=MÏD*(X*,Y+2,I-Y-2) iE<vfil_ 
=VAL<ZS) 

IF I>J THEN F 
GOTO 1480 



3 Z*="Fichier à relire " : C 

1 IF X*="" THEN RETURN 

3 OPEN X* FOR INPUT AS #2 

I INPUT#2,N 

] FOR 1-0 TO N: INPUT#2,N*(] 

1 NEXT I:CLQS£jK=0;RËTURN 



REM 

^'■Fichier à ! 
X*=" " THEN : 



I OPEN X* FI 

I WRITE#2,N 

I FOR 1=0 TO N:WRITE#2, 

) NEXT 1:CLOSE:GOTO 50 



UVer "sGOSUB 1230 

UT AS #2 




I IF X*="P" THEN 1330 

) IF X*<>"fl™ THEN 60 

] KF-Kt Kï«~i t IF C>=0 THEN. KI=C 

) FOR 1=0 TO 9:EM(I)=E<I) :NEXT I 

I FOR L=0 TO 9: IF EM(L)<0 THEN 1360 

1 K=£M(l_> :GOSUF! 1460: P --il.! : M=KF: GOSUB 139C 

) NEXT L:K=KM:GOTO 50 



REM-- 






, des cptions 



) PRINT" F Fin":PRINTiPRINT"Presser RETURN"; 

I INPUT XS:G0TO 50 

I REM ligne 1640 ; ouverture du fichier X* pc 



2OLV0 KLM ! 



i REM CLOSE : fermetui 
I REM WRITEH : écritu 
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EXPLORATION 
A LA RAME 




fini la galère sur les rames du métro politain : 

arec le ra p porteur automatique personnel de tra jet. 

vous circulerez dans ees modernes catacombes avec la facilité d'une puce 

sur le dos d'un chien. 

Peu de choses à dire sur la mise en œuvre, si ce n'est que le choix 

de la valeur de changement vous permet de jouer sur la rapidité du trajet. 

avec moins de stations mais plus de corres pon dances à fréq uenter, 

leur râleur étant justement en nombre de stations équivalentes. 



SPÉCIAL PHOGMMES 



L0I7THSDÈCEMSHE19SS 



Augustin Garcia I 

— 22 — 



10 CL5:PRINT TABC30)"-- METRO — " :PRINT! PRINT: CL 
EAR 2000:DEFINT A-Z 
20 RESTORE:RËAD NL.NS 
30 TAILLE=NL+NS 

40 DIM NOM*<TAILLE+l) , COR* (TAILLE) .VISITE (TAILLE) , 
CO (TAILLE) 
50 I=liL=l:NCO=0 

60 READ A*: IF A*="FIN M THEN 90 

70 1*1.1-1 ■ IF ASC(A*)=42 THEN NCO=NCO+1 : CO (NCO) = 1 : A* 
=MID*<A*,2> 
B0 NOM*(I)=A*!GOTO 60 
90 I = i + i:L=L+l! IF L<=NL THEN é>0 

100 FOR Sl=2 TO NCO:Cl=CO(Sl> : FOR S2=l TO Bl-1 
110 C2=C0(S2):IF NOM* (Cl ) -NOM* (C2) THEN COR*(Cl)=C 
0R*tCl)->-CHR*(INT<C2/256> )+CHR*(C2 MOD 256):C0R*(C2 
)=C0R*(C2)+CHR*(INT<Cl/256) )+CHR*(Cl MOD 256) 
120 NEXT 52, SI 

130 MAXPT=2»NCO:ÛIM PTR (MAXPT) ,FAR* (MAXPT) , ATT <MAX 
PT) 

140 INPUT"Station de départ "jS* 
150 GOSUB 490: IF S=B THEN 140 
168 DEP=S:PRINT 

170 INPUT M Station d'arrivée "jS* 
180 GOSUB 490iIF S=0 THEN 170 

190 ARI=S:IF DEP=ARI THEN PRINT"A1 lez faire un tou 
r ... Et revenez ":PRINT"quand vous aurez les idées 
claires. "iBOTO 140 



";VCH: IF VCH<0 TH 
(T IsFD 



210 INPUT"Valeur d'un chan 

EN 210 

220 PRINTiFOR 1=1 TO NCO: VISITE (CO ( I 

[=1 TO MAXPT:ATT!I>=0:NEXT Iî 
230 NPTR=2 : PTR ( 1 ) = DEP : PTR f 2) =-DEP: NST=0 

3 D*=CHR*(INT(DEP/256> )+CHR*(DEP MOD 256>:PAR* 
3*+CHR* i 0) : PAR* ( 2 ) =D*+CHR* (2 ) 
250 REM boucle de recherche 
260 FOR P=l TO NPTRiIF ATT.tF") O0. THEN ATT(P)=ATT 

l:GOTO 350 

270 S=AB5(PTR(F) >: IF LEN <NOM*<S> ) =0 THEN ATT(P) 
00:GOTC 350 
•80 IF S=ARI THEN 370 
!90 IF LEN(COR*<S) ) =0 THEN 340 

;00 C*=COR*(S) :FOR 1=1 TO LEN(C*) STEP 2:T=ASC 
MC*,I,1) }-256+ASC(MID*(C*, 1 + 1,1) 1 ! IF VISITE(T) = 



i "0 



vch 

3 NPTR=Nr-TR+l:PTR(NPTR)=-T+l!P* 
CHR*(INT(T/256> )+CHR*(T MOD 256>- 
=VCH:VISITE(T>=1 
330 NEXT I 
340 PTR(P)=PTR<P)+1 
350 NEXT P 

3 NST=NST-<-ltGOTO 260 



370 f 



:hage 



ijet ■ 



1 : P*=PAR* (P ) +CHRÏ ( 
NT1ARI/256) 1-t-CHRtiARI MOD 256) +CHR* (255) 
390 IF NOM*<DEP)=NDI-l£(ASC([-IIDS(P*,4,l) )»256+ASC(M 
D#(P*,5,1))1 THEN P*=I1ÏD*(P*,4> 

400 BT=ASCiMID*(P*,I,l> ) «256-t-ASC (MID4 (F*, 1 + 1 , 1 ) ) :1 
=1-«SC<M1D*!P*,I+2,1>) :J=ST 
410 PRINT A*;NOM*<ST) : IF D=-254 THEN 450 
420 IF NOM#IJ+D)<>"" THEN J=J+DïGOT0 420 
430 PRINT " Direction " ; NOM* ( J ) : A*="Descendre à 



RIN' 



;NSÏ; ' 



460 INPUT"Dêsirez-vo<J5 un autre trajet " ; A* 

470 IF LEFT*(A*,1)="0" THEN PRINT: PRINT: GOTO 140 

450 END 

490 REM recherche du numéro de station 

300 S=0tFOR 1=1 TO TAILLE 

310 IF S*=NÛM*U) THEN S=I : I=TAILLE 

520 NEXT U IF SO0 THEN RETURN 

530 FOR 1=1 TO TAILLE 

540 IF INSTR(NOM*U) ,6#)O0 THEN PRINT"Est-ce u ;W 

M*(I);:INPUT R*:IF LEFT* (R* , 1 > = "0" THEN S=I:I=TAII 

LE 



550 

560 RETURN 

570 REM 1 i I 



iIF 



i THEN PRINT"Statii 



580 DATA 4,97 

590 DATA MAIRIE DE MONTREU IL .CROIX DE CHAVAUX . ~Z;-= 
SP1ERRE, PORTE DE MONTREUIL, MARAICHERS, BUZENVAL,»**:. 
TION,RUË DES BOULETS, CHARONNE, VOLTAIRE, ST AMBROISE 
600 DATA «OBERKAMPF, «REPUBLIQUE, «STRABQURG ST DENI 
S, BONNE NOUVELLE, RUE MONTMARTRE, «RICHELIEU DROUOT, 
«CHAUSSEE D'ANTI, «HAVRE CAUMARTÏN.ST AUGUSTIN,*MIfi 
OMESNIL, «FRANKLIN ROOSEVELT ,«ALMA MARCEAU, IENA,*TR 
OCADERO.RUE DE LA POMPE, LA MUETTE, RANELAGH, JASMIN 
610 DATA «MICHEL-ANGE MGLITOR, «MICHEL-ANGE AUTEUIL 
.EXELMANS, PORTE DE ST CLQUD, MARCEL SEMBAT, BILLANIZ 
URT.PONT DE SEVRES, FIN 
620 DATA CHATEAU DE VINCENNES,EERAULT,ST MANDE TGL 
RELLE, PORTE DE VINCËNNES, «NAT ION ,REUILLY DIDEROT, G 
ARE DE LYDN,«BASTILLE,ST PAUL, «HOTEL DE VILLE, «CHA 
TELET, LOUVRE, «PALAIS ROYAL , TUILERIES 
630 DATA «CONCORDE, «CHAMPS-ELYSEES CLEMENCEAU, «FRA 
NKLIN ROOSEVELT, GEORGES V , «CHARLES DE GAULLE ETOIL 
E, ARGENTINE, PORTE MAILLOT,LËS SABLONS, FONT DE NEUI 
LLV.FIN 




640 DATA «CHATELET, 'HOTEL DE V I LLE , RAMBUTEAU , «AF 
ET METIERS , «REPUBL IQUE , QONCOURT , «BELLEVI LLE , PYF 
EES, JOURDAIN, «PLACE DES FETES, TELEGRAPHE, «PORTE DE 
S LILAS, MAIRIE DES LILAS.FIN 

650 DATA 6ALL I EN I , PORTE DE BAGNOLET ,»GAMBETTA,*I 
E LACHAISE,ST MAUR, PARMENTIER, «REPUBLIQUE , TEMPLE , * 
ARTS ET METIERS,«REAUMUR SEBASTOPOL, SENT 1ER, BOURSE 
, QUATRE SEPTEMBRE 
660 DATA «OPERA, «HAVRE CAUMARTIN, «ST LAZARE, EUROPE 
,*VILLIER5,MALESHERBES,WAGRAM,FERËIRE, FORTE DE C 
MPERET, LOUISE MICHELE .ANATOLE FRANCE, PONT DE, LEVAL 
LOIS BECON.FIN 
670 REM 

6B0 REM Extensions du programme 
690 REM 

700 REM Pour rajouter des lignes : 
710 REM ligne 580 : nombre de 1 ignés, nombres de 
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SORCELLERIE II! 



Votre fardeau est lourd : sauver le monde de la mena ce des sorciers-. 

P our réaliser cette prouess e, vous devrez entrer vos ordres sous la forme 

verbe/complément, le verbe étant à l'impératif ou a bré gé à trois le ttres, 

le complément pouvant l'être à quatre lettres. 

Par exem ple, i prends gâteau lou spre gâte s. 

Aux questions « où ? » ou « à qui ? » de l'ordinateur , ré pondre seulement p ar un mm. 

Le reste des ex plicatio ns est four ni par le programme. 

Ne vous décou ragez pas, la solutio n existe 

et le monde peut être sauvé... 



Rafi Deryeghiyanl 



spêciu pnoGRAmis 

LVI77HSÙÉCEMBK1S85 
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113 CLS 

20 PRINT ■ 

30 PRINT ' 



PUIS DES 



^ SORCELLERIE 




90 PRINT "22 JUILLET 2337 ; REAPPARITION 1JE SGRCIEl 
R5";:PRINT "AUX POUVOIRS TERRIFIANTS. ENCORE PEU IM 
OMBREUX, ILS ETAIENT MAITRISES FACILEMENT." 

00 PRINT "NOËL 2037 : COUP DE FORCE DES SORCIERS. 
":PRINT"TOUTES LES ARMEES SONT REDUITES 6 NEANT. P 
ROCLAMATION DE LA DICTATURE DES SORCIERS." 

NT "FEVRIER 2038 : LES SORCIERS PEUVENT A P 
DETRUIRE LA VOLONTE DES RESISTANTS." 

20 PRINT "CONSCIENTS DU DANGER, DES DIZAINES DE P 
ERSONNES ONT ESSAYE DE COMBATTRE CE POUVOIR MALEFI 
DUE, MAIS EN VAIN. " 

30 REM LOCATE X,Y : positionne le curseur ligne X 

40 LOCATE 24,10:FRINT "APPUYEZ SUR UNE TQUCHE";:L 
OCATE 7,li60SU6 180:CLS 

10 PRINT "APRES 6 ANS DE RECHERCHES, VOUS TROUVEZ 

INFIN UN INDICE : L'ARME ABSOLUE SE TROUVE DANS U 

CHATEAU . " 

i0 PRINT "QUELLE EST DONC CETTE ARME ABSOLUE 7 A 
VOUS DE LE DECOUVRIR !" 
70 GOTO 200 
SB REM 
90 RETURN 

100 PRINT "VOICI QUELQUES ELEMENTS POUR VOUS AIDER 
DANS VOTRE OUËTË : ■ 




220 PRINT " N POUR ALLER AU NORD." 

230 PRINT " 5 POUR ALLER AU SUD." 

240 PRINT " E POUR ALLER A LEST." 

250 PRINT " O POUR ALLER A L'OUEST." 

260 PRINT " INV POUR L'INVENTAIRE." 

270 PRINT " QUI F'OUR ARRETER." 

230 PRINTsPRINT "POUR LE RES1E, A VOUS DE JOUER • 

;:LOCATE 1 ,i:GOSUB 180 

290 DIM Lï*{24,7> ,OB#(30,2) ,VE*(32> 

300 FOR 1=1 TO 24:FOR J=l TO 7 

310 READ LI*(I,J> îNEXT JlNEXT I 

320 DATA DEVANT LA PORTE DU CHATEAU ,, âESS ,, 2 , , 

330 DATA DANS L'ENTREE DU CHATEAU , ,àËSO, , ~ " 

340 DATA DANS LE GRAND SALGI'I , MEUBLES DE LUXE. , &ESO 



350 DATA DANS UN COULOIR MAGNIFIQUE, ,NES0,6,i 
360 DATA DANS LA SALLE DE BAINS , EVIER. ,ààAO, . 
370 DATA DANS UNE CHAMBRE SOMPTUEUSE, L 



380 DATA DANS LE PETIT SALON, ,NESâ, 2,8, 1 
390 DATA DANS LA CUISINE, MEUBLES. ,Nè50,: 
400 DATA DANS LA CHAMBRE D 'AMIS, LIT. POR1 
410 DATA DANS UN ATELIER, ,èââO, ,,, 24 
420 DATA DANS UN COULOIR, ,NEàà, 7,12, , 
430 DATA DANS UN LONG COULOIR DE PIERRE 

440 DATA DANS UN COULOIR, ,NâÀO, S, ,, 12 

450 DATA DANS UNE 

460 DATA DANS UNE 

E TORTURE. ,âaâO, ,, ,14 

470 DATA AU GRENIER, ,àEàà, , 17, 

480 DATA DANS UNE GRANDE PIECE 

OUGIES, ,âEàO,,18, , 16 

490 DATA DANS UNE PETITE PIECE SOMBRE, 

500 DATA SUR UNE CORNICHE, LE VIDE.,ààSâ,, 

510 DATA DANS UNE PIECE AU SOUS- SOL ,, NES à 



9,3 



NEE PAR DES B 
àààO , , , , 



I TKj-U'JEMT des SOUELETTES 



520 DATA DANS UN 
530 DATA DANS UNI 

, , NAS*, 20, ,23, 

540 DATA DANS UNE SALLE ABANDONNEE DEPUIS LONGTEMP 

S, ,NàâÈ,22, , , 

550 DATA DANS UNE GROTTE , , 

560 FOR 1=1 TO 30: FOR J=l TO 2: READ OB*(I,J)s NE 

XT JiNEXT I 

570 DATA PILE, -6, AMPOULE, 3, LAMPE, -3, GANTS, 5, GATEAU 

,8, TABLEAU, 9 

580 DATA SCIE, 10, FIOLE, 10, CORDE, 15, PARCHEMIN, 17, EG 
HELLE , 23 , DRAPS , 6 , PLAFOND , 
590 DATA GROTTE, -9, FENETRE, 14, BARREAU, -14, STATUE, 



620 FOR 1=1 TO 32: READ 

630 DATA "VA ",ENT 

,DEV,LAC,POS,LAN 

640 DATA JET,OUV,FER,SC 

LL , IN5 , AFP , V IS , DET , ETE 



I-, BOUTON, - 



LIT 



, PORTE , , PASSAGE ,-12 
VE*(I):NËXT I 
DES,REG,EXA,OBS,PRE,SAI,SAI 



_A=0:GA=0: 



Ot 



l:BA=0:FE=0:CR=0: 



R=0:EM=0:NO=0 
660 L=l!FI=0:LE=0 
670 CLS 

.=24 AND LA=0 THEN 3770 
=17 AND EM=0 THEN 37S0 
=23 AND EH=H THEN 3790 
710 PRINT "VOUS ETES "iH*(L,i: 
720 Bl-1 

730 PRINT "VOUS VOYEZ : ";LI*(L 
THEN 01=0 

=9 AND AC=0 THEN PRINT' 
PIECE. ";:C50TÛ 760 

L=9 AND AC THEN PRINT" RONGEE PAR L'ACIDE 



SPRII 



2) ; : IF LI*(L,2) = 
VOUS ENFERMANT DAN 



FOR 1 = 1 TO 30! IF VALU 
1=2 AND AL=0 THEN F 
1=3 AND L.A=0 THEN I 



25 



*(I,21K>L THEN 900 
INT" ALLUMEE. ";:GOTO 90 
INT" ETEINTE. "îlGOTO 
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15 AND FË THËN PRINT" OUVERTE. "s sGOTO 9t 

16 AND SA THEN PRINT" SCIE. " ; : GCITU 900 
1B THEN PRINT" DANS LE MUR. "; i GOTO 900 
27 AND CH=0 THEN PRir. 



;27 AND CH THEN PRINT" MORTS."! 
I:IF 01=0 AND Q2=0 THEN PRINT 
■RINTtGGTO 920 



■RIEN DE SP 



920 


PRINT "DIRECTIONS POSSIBLES 


9 se 


FUR 1 = 1 T( 


4sDI*=MID*<LI*<L 


94a 


IF DI*="N' 


THEN PRINT "NORD 


952 


IF DI*="S' 


THEN PRINT "SUD. 


963 


IF BI«""E' 


THEN PRINT "EST 


970 
980 


IF BI*- n S' 
NEXT I: PU 
PRINT 


THEN PRINT "OUES 



120 IF L-Z 



THEN : 



m LOCATE 23,1 
040 PRINTîPRINT "QUE FAITES-VOUS ? "ilGOSl 
050 IF RIGHT*(R*,1)=" " THEN 
R$=LEFT$(R*,LËNCR#)-1) :GOTG 1050 
060 IF R*=" " THEN 1040 

070 IF Ri="0" OR R*="E" DR R#="5" OR RS="I 
*=R*:GOTO 1490 

080 IF LEFT*(R*,3)="DUI" THEN CLS:END 
090 IF LEFTÎ(R*,3>="INV" THEN 1290 
:FOR I=LEN<R*) TO 1 STËP - 



i-ni).= (f.* 



20 NEXT I: IF X-0 " 
30 V*=LEFT*IR*,X- 

40 V=0iFOP 1=1 



SB NËXT I 
M=0iFOR 
: 1=30 



S0 ON V GOTO 



2850,2910,2940, 
3500 , 3580 , 
90 PRINT: PR] 



f-Vi=INi;RV*: 
IF LEN<R*) 



1 OR r 



[ D* ( R* , I , 



;=LEFT*(OB*(I, 



380,1380,1530,: 



229B, 22913, 22Va, 24613, 23Ï.3 , 2530, 256Ï 



,3090,31' 
Î0 , 3620 

"ESSAYE2 AUTRE CHOSE 



THËN 1210 
!N 1250 
Rf= RIGHT*(R*,LENIR*>- 



240 R*="":RËTURN 

250 IF ASC(A*)=8 AND LENIR*) >1 THEN R*=LEFT*<I 

:N(R*)-1I SPRINT A*: " ";A*;lG0TO 1210 

260 IF A*=." " OR AS="'" THEN 1280 

270 IF ASC(AI)<65 OR A5CIAJ>>91 THEN 1210 

280 PRINT A*; ;RS=R4+A*;G0T0 1210 

290 IF NO=0 THËN PRINTîPRINT "VOUS NE POSSEDE 

N. "s GOTO 1040 

300 PRINTîPRINT "VOUS PORTEZ :":PRINT:FOR 1=1 

2:IF OB*(I ,2)<>"100" THEN 1370 

310 PRINT 0B4(I,1> s"."; 

=3 AND LA=0 THEN PRINT 



-3 AND LA THEN F 



F 1=0 



INT" 



IîPRINTîSOTO 1040 
:>SB THEN 1410 

c>i2 or vono&$(30,; 

VOYEZ-VOUS UN "iiOB*(30, 

=14: GOTO 670 

F M<M4 THEN 1440 

;>9 OR VALIDB*(14,2) 
OU VOYEZ-VOUS UNE ":0B#<14,1 

iGOTO 670 



ETEINTE. "i:GGTD 1 
LUMEE." i:GOT0 137 

iiGGTO 1370 



' :GOT0 1040 



J PRINT : PRINT "DONNËI UNE I 



"IMPOSSIBLE • ELLE E 



THEN L«VI 



ON SVP.":GOT0 1040 

1460 IF AC=0 THËN PRINTiF'R: 

ST FERMEE.": GOTO 1040 

470 L=4:GOT0 670 

430 IF M<20 OR M>23 THEN : 

490 FOR I=f TO 4 

500 IF LEFT*IM$,1)=MID*(L] 

I*(C,I+3) >îGOTO 670 

510 NEXT I 

520 PRINTîPRINT "VOUS NE POUVEZ PAS 'ALLER PAR LA 

"iGQTO 1040 

530 IF L<>6 AND LOI 9 THEN PRINTsPRINT "VOUS NE F 
OUVEZ PAS MONTER ICI !"iG0TO 1040 

540 IF LOS THEN 1590 

550 IF MOU THEN PRINTîPRINT "VOUS DEVEZ AVOIF 
ROP BU !":GOTO 1040 

560 IF OB#(il,2)="100" THEN PRINT [PRINT "POSEZ D 

ABORD VOTRE " ; DB* < 1 1 , 1> îGOTO 1040 

570 IF VAL(DBS(ll,2).)OL THEN PRINTîPRINT "QUELLE 

■'ïOB*tll,l):" 7"ïG0T0 1040 

580 L=16:GOT0 670 

590 IF M=12 THEN L=14:G0TO 670 

600 IF MOU THEN PRINTîPRINT "VOUS DEVRIEZ VOUS 
REPOSER UN PEU. ": GOTO 1040 

■ QB*C11,2>="100" THËN PRINTîPRINT "ET SI VG 
El VOTRE ":0B*(1 

620 IF VflL<DB*lll,2)KH- THEN FRINTjPRINT "QUELLE 

";OB*(ll,l)i " ?"iGOTO 1048 

630 L=14:G0T0 670 

640 IF LOM AND LOI* THEN F'RINTiPRINT "VOUS NE 

OUVEZ PAS DESCENDRE ICI."ïGOTO 1040 

650 IF L=14 THEN 1680 

660 IF MOll THEN PRINTsPRINT "NE DITES PAS N'IMP 
ORTË QUOI !"îGDTO 1040 

670 L=6îG0T0 670 

680 IF MOll AND M<>9 AND M012 THEN PRINTîPRINT 

REPOSEZ-VOUS DONC UN PEU.."iG0T0 1040 

690 IF FE=0 THEN PRINT ïPRINT "IMPOSSIBLE ï LA ") 
■ERMEE. " ïGOTO 1040 



■ BA=0 



I PRII> 



NT "UN ' 
16,2)=": 



iOBJC 



,1) 



: FOR Z=l TO : 



:O0TO 1040 



R1N1 ïPRINT ' 



750 IF M--12 THEN 1790 

760 IF VALC0B$<9,2> 1 <>L AND 0B* (9,2) <>" 100" THEN 
RINTiPRINT "QUELLE ";QB#(9,D;" 7"iG0T0 1040 
770 IF CR THEN PRINTîPRINT "LA " ; QB* (9, 1 ) s " CASSE 
!":PRINT "VOUS VOUS ECRASEZ AU FOND DU RAVIN"iSOT 
3670 
780 PRINTîPRINT "VOUS PASSEZ PAR LA " ;0B*< 15, 1 ) ; ' 
ET ALLEZ VOUS ECRASER AU FOND DU RAVIN. " : GOTO 36: 

790 IF VAL<ÛB*(12,2))':M- AND OBÏ < 12,2) < >" 100" THÊ 

PRINTîPRINT "QUEL ";0B* 1 12, 1 ) : " ?"sGOTO 1040 
800 IF DR THEN l_=19:G0TO 670 
910 GOTO 1780 
820 IF M=0 THEN 2280 

S30 IF VAL(OB#(M,2>)=0 OR VAL IOB* (M, 2) ) =100 OR Vf 
.<0BS(M,2>)=L THEN 1850 
840 PRINT! PRINT "JE NE VOIS PAS CA ICI !":GOTO : 



110, 2 1 20, 22G().. .:.-.'■! i*i, .-:■;■: ;'J0 , :'.,1> U , 21 .M , 2150,2180, 2) 
210, 7240, 2270 

360 PRINTîPRINT "VOUS N'EN N'AVEZ JAMAIS VU ?' 
1040 

"ELLE EMET UNE L 



RIN 



EIN' 



"IL MANGU 
ELLE EST ETEINTE. ' 



890 IF OB*(1,2)<>"100" THEN I 
ï "ïOBSfi*,ll îGOTO 1040 
IF LA=0 THEN PRINTîPRINT 
GOTO 1040 

[0 PRINTîPRINT "ELLE EST ALLUMEE. ": GOTO 1040 

20 PRINTîPRINT "IL EST AU CHOCOLAT, "i GOTO 10- 

.930 PRINTîPRINT "C'EST UN PORTRAIT DE SATAN.". 
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1940 


IF FI» 


THEN 


PRINT: 


PRINT "ELLE 


EST PLEINE DE 


-IQUIDE. "iSOTQ 1040 








PPINT: 


F'RINT ' 


ELLE EST BRISEE. " 


GOTO 1040 


. 960 


PR I NT 


PRINT ' 


ELLE A 


L'AIR ANCIENNE. " : GOTO 104 


1970 


F'RINT 


PRINT ' 


IL Vf 


QUELQUE CH 


USE MARQUE DESS 


US."i 


GOTO 


1040 








i960 


IF L< 


6 THEN 


2280 






1990 


■■RINT 


PRINT 




A UN TROU ASSEZ GRAND POUR 


Y PASSER. 


t GOTO 


1040 






2800 


REM 










2010 


PRINT 


PRINT 


"IL W 


IT ASSEZ SOMBRE A L'INTERI 


EUR. 


; GOTO 1040 










IF FE= 


B THEN 


PRINT 


PRINT "ELLE ES 


60 1 1 


2040 










2030 


PRINT 


PRINT 


" ELLE 


EST OUVERTE 




2040 


IF VA 


(OB*116,2)><0 THEN PRINT 


"VOUS VOYEZ ES 


ALEMENÏ UN 


" ; OB* ( 


6,1) : 


0B*<16,2)=" 


14": GOTO 2060 


2050 


PRINT 


"IL Y A UN " 


OB*(16,l) ; i 


IF (BA) THEN P 


RINT 


" SCIEE"; 








2060 


PR I NT 


PRINT 


"VOUS 


VOYEZ AUSSI 


UN RAVIN TRES 






GOTO 1040 






2070 


REM 










2080 


IF BA 


THEN 


PRINT 


PRINT "IL 


A L'AIR SOLIDE. 




TO 1040 








2090 


PRINT 


PRINT 


"IL EST SCIE. "! ( 


2100 


pr i n ;" 


PRINT 


C'EST 


UNE STATUE 


DE SATAN." : GQT 


1040 










2110 


■■R!M 


PRINT 


"ELLE 


EST ETROITE 


, HORIZONTALE, 


ET DANS LE 


MUR, " : 


GDTO 






2120 


PR I NT 


PRINT 


"ILS 


ONT EN OR I 


NCRUSTE DE DIAM 


ANT5 


" : GOTO 1040 








2133 


REM 










2140 


PR I NT 


PRINT 




N'EN N'AVEZ 


JAMAIS VU 7": 


GOTO 


1040 










2150 


IF L=9 THEN 2280 






2160 


IF 0BS(1,2>< 


"-6" THEN PRINTï 


PRINT "C'EST UN 




A BALDAQUINS 




1040 




2170 


PRINT 


PRINT 


"C'EST UN LIT A BALDAQUINS.": PR 




VOUS 


JECOUVREZ UNE 


" ; OB* (1,1): 


■ CACHEE DESSOU 


S ! " 


FOR 


= 1 TO 


0001 NEXT Zl OB*< 


l,2)="6"l OOTO 


670 












21E0 


PRINT 


PRINT 


"IL EST A( 


DANS LE MUR. ": 


GOTO 


1040 












IF CH 


THEN 


PRINT 


PRINT "ILS 


ONT L'AIR MECH 


ANT3 


": BOTO 1040 








:-'7O0 


PRINT 


PRINT 


"ILS SONT MORTS. ' 


: GQTO 1040 




IF L< 


>12 THEN 22S0 






2220 


IF QB*(24,2) 


"12" THEN 2280 






PRINT 


S--RINT 


"IL EST FENDU DE 


HAUT EN BAS. ": 


PR1NT "VOUS REMARQUEZ EGALEMENT UN 


■ ;0B*(24,1): DB 


*(24 


2> = "1 


2": FOR 


Z=l TO 3000: NEXT 


Z: GOTO 670 


2240 


IF L< 


? THEN 


2280 








IF AC 


=0 THEN 


PRINT 


PRINT "ELLE E£ 




3TO 1040 








2260 


PRINT 


PRINT 


"ELLE 


EST RONGEE 


PAR L'ACIDE. ": 


GOTO 


1043 










2270 


REM 










2280 


PR I NT 


PRINT 


"VOUS 


NE VOYEZ RIEN DE SPECIAL." 


: GOTO 1040 








2290 


IF M= 


24 THEN 


2940 








IF M= 


2 THEN 


^400 






2310 


If NO 


=4 THEN 


PRINT 


PRINT "VOUS PORTEZ TROP D 


'OBJETS !" 


GOTO 








2320 




i THEN PRINT 


PRINT "PRENDRE QUOI ???": 


GOTO 1040 










2330 


if" ob 


MM,2J = 


100" THEN PRINT : 


PRINT "VOUS L' 


AVEZ 


DEJA. 


': GOTO 


1040 






2340 


IF VA 


_(OB*(M 


2) )<>L- THEN PRINT 


: PRINT "JE NE 


«DIS 


PAS C 


a ici ! 


: GOTO 1040 




2350 


IF M= 


? THEN 


1420 








IF l"1= 


12 THEN 


2440 






2370 




2 THEN 


PRINT 


PRINT "VOL 


S NE POUVEZ PAS 


PRENDRE CA ! " : GDTO 1040 




2380 




b THEN 




2) ="9" 




2390 


oe*(M 


,2>="100": NO 


=NO-t-l: GOTO 


670 


2400 


IF AL 


THEN 2 


590 






2410 


PRINT 


PRINT 


"VOUS 


OUBLIEZ DE 


FAIRE QUELQUE C 


HGSE 


!"! GOTO 1040 






2420 


IF CR 




«10 






2430 


GOTO 


2390 








2440 




THEN 2 


M9 






2450 


SOTO 


2390 









2460 IF M<>2 THEN PRINT: PRINT "CA NE SE DEVISSE i 

AS !": GOTO 1040 

2470 IF LOS THEN PRINTï PRINT "ON NE PEUT RIEN Dl 

VISSER ICI.": BOTO 1040 

24S0 IF AL THEN PRINT: PRINT "C'EST DEJA FAIT. "i ( 

OTO 1040 

2490 IF OB*(4,2)<>"100" THEN PRINT: PRINT "IMFDSSI 

BLE : VOUS VOUS BRULEZ.": SOTO 1040 

2500 IF DB*(3,2><>"-3" THEN AL=1: BOTO 670 

2510 AL=1: PRINT: PRINT "ELLE ETAIT RELIEE A UN I 

SPOSITIF ELECTRONIQUE, ET QUELQUE CHOSE EST TOMBE" 

: 0B*(3,2)="3" 

2520 FOR Z=l TD 4000: NEXT Z: GOTO 670 

2530 IF M=0 THEN PRINT: PRINT "LACHER QUOI ???"i 

OTO 1040 

2540 IF OB*(M,2)<>"100" THEN PRINT: PRINT "VOUS NE 

L'AVEZ PAS AVEC VOUS.": GOTQ 1040 
2550 OB*(M,2)=STR*(L) : NO=NO-I i PRINT: PRINT "OK": 

FOR Z=l TD 1000: NEXT Z: GOTO 670 
2560 IF NOS THEN 253B 
2570 IF L<>9 THEN 2530 
25B0 IF OB*(8,2)O"1G)0" THEN PRINT: PRINT "VOUS NE 

L'AVEZ PAS.": GBTO 1040 
2590 IF FI THEN 2530 

2600 PRINT! PRINT "OU ? ";: GOSUB 1200 
2610 IF LEFT*(R*,4X>LEFTS(0B*(29,1> ,4) THEN PRINT 
: PRINT: PRINT "EN RETOMBANT, ELLE SE BRISE.": FI= 
1: 0B*(8,2>="9": FOR Z = i TO 2000: NEXT 2: MQ°=NO-li 

SOTO 670 
2620 PRINT: PRINT "LA " ; OB* (29, i) ; " EST RONBEE PAR 

L'ACIDE QUE CONTENAIT LA " s OB* (8 , 1 ) ; " . " 

-:/.-:.w NO=NO-l 

2640 Fl-li AC=1: OB* (3,2) ="9" : FOR 2=1 TO 2000: NE 

XT Z: GOTO 670 

2650 IF MOIS AND M<>29 THEN PRINT: PRINT "CA NE S 

OUVRE PAS.": BOTO 1040 
2660 IF N=29 THEN 2700 

2670 IF L<>14 THEN PRINT: PRINT "QUELLE ";OB*(15,l 
) j" ?"i GOTO 1040 

26G0 IF FE THEN PRINT: PRINT " VOUS L'AVEZ DEJA hA 
IT.": GOTO 1040 

2690 FE=1: PRINT: PRINT "OK": FOR Z=l TO 1000: NEX 
T Z: GOTO 670 

2700 IF L=24 OR L=19 THEN PRINT: PRINT "QUELLE ";0 
B*(29,l);" ?"l GOTO 1040 

2710 IF LOV THEN PRINT: PRINT "ELLE EST DEJA OUVE 
RTE.": GOTO 1040 
2720 IF AC THEN 2740 
2730 PRINT: PRINT "IMPOSSIBLE, IL N'Y A PAS DE POI 
GNEE ET ELLE A L'AIR SOLIDE.": GOTO 1040 
2740 PRINT: F'RINT "VOUS NE POUVEZ PAS, MAIS IL Y A 

UN TROU ASSEZ BRAND POUR PASSER." 
2750 GOTO 1040 

2760 IF M<>15 AND N<>29 THEN PRINT: PRINT "CA NE S 
E FERME PAS.": GOTO 1040 
2770 IF M=29 THEN 2810 

27S0 IF L<>14 THEN PRINT: PRINT "QUELLE "sOB*(15,l 
);" ?"i GOTO 1040 

2790 IF FE=B THEN PRINT: PRINT "VOUS L'AVEZ DEJA F 
AIT.": BOTO 1040 

2B00 FE=0: PRINT: PRINT "OK": FOR Z=l TO 1000: NEX 
T Z: GOTO 670 

2010 IF L=24 OR L=19 THEN PRINT: PRINT "QUELLE ' 
B*(29,l);" 2": GOTO 1040 
2320 IF L<>9 THEN PRINT: PRINT "VOUS NE POUVEZ PAS 

2330 IF AC=0 THEN PRINT: PRINT "N'OUBLIEZ PAS QUE 

VOUS ETES ENFERME...": GOTO 1040 

2340 PRINT: PRINT "VOTRE ETAT MENTAL DOIT ATTEINDR 

E LA COTE D'ALERTE A MON AVIS...": GOTO 1040 

2850 IF OB#(7,2)O"100" THEN PRINT: PRINT "AVEC LE 

S DENTS ?"i GOTO 1040 

2360 IF MOli THEN PRINT: PRINT "CA NE SCIE PAS.": 

GOTO 1040 
2870 IF LOM OR OB* ( 16,2) = "-14" THEN PRINT: PRINT 

"QUEL ";QB*(16,1) ; " ?"] GOTO 1040 
2880 IF BA THEN PRINT: PRINT "VOUS L'AVEZ DEJA FAI 
T !"i GOTO 1040 

2890 IF FE=0 THEN PRINT: PRINT "VOUS OUBLIEZ DE FA 
IRE QUELQUE CHOSE...": GOTO 1040 

2900 PRINT: PRINT "OK" : BA=1 J FOR Z=l TO 1000: NEX 
T Z: GOTO 670 
2910 IF MOI? THEN PRINT: PRINT "DROLE D'IDEE...": 
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NNE RIEN. 



ÎINT "QUELLE "jQBS<17,1 



:INT "CA NE DO 



24 THEN 3010 
OB*<6,2)="100" OR <0B*(14,2>="9" AND DB*(( 
THEN PRINT: PRINT "IL NE SE FASSE RIEN." 



"QUEL ' 
. NE SE PASSE RI! 



■ 12 OR QB$<24,2>= 



GOTO 1040 
2970 IF VAL(0BS(6,21 > OL THEN PRINT: PRINT 
?■■ 1 GOTO 1040 
IF L09 THEN PRINT: PRINT 
GOTO 1040 

PRINT "UNE ";OB*f 14,1);" ETAIT CACHEE 
DERRIERE !" 

3HH9 FOR Z = l TO 1000: NEXT Z: OBS ( 14, 21 ="9": GOTO 
670 
3010 II 

"QUEL ";0B*<24,1> ;" ?": GOTO 1040 
3020 IF aBS<30,2>="12" THEN PRINT: PRINT "IL NE SE 

PASSE RIEN.": GOTO 1040 
3030 OB*(30,2)="12"! PRINT: PRINT "CA DECLENCHE L' 
OUVERTURE D'UN " ;0B* (30, 1 > ; " !" 
3040 FOR 2 = 1 TO 1500: NEXT Z: GOTO é.70 
3050 IF MO 10 THEN PRINT: PRINT "CA NE SE LIT PAS. 
": GOTO 1040 

3060 IF OB*(10,2>-O"100" AND VAL<GB*<10,2) )OL THE 
N PRINT: PRINT "DUEL ";OB$ 1 10, 1 > ; " ?": GOTO 1040 
3070 IF LE=0 THEN PRINT: PRINT "C'EST ECRIT DANS U 
NE LANGUE ETRANGE OUI NE RESSEMBLE A RIEN DE CONNU 
.": GOTO 1040 
3080 GOTO 3720 
3090 IF HOS THEN PRINT: PRINT "LES HUMAINS ONT DE 

DROLES D'IDEES !": GOTO 1040 
3100 IF OBS(S,2)O"100" AND VAL <OBS 15,21 )< >L THEN 
PRINT: PRINT "DUEL » ; 0B*<5, 1) \ " ?"t GOTO 1040 
3110 PRINT: PRINT "LES POISONS ONT PARFOIS BON GOU 



3120 PRINT "CELUI-CI ETAIT PARTICULIEREMENT EFFICA 

CE. VOUS ETES FOUDROYE !" 

3130 GOTO 367B 

3140 IF MOS THEN PRINT: PRINT "VOUS ETES TRES G£N 

EREUX !"i GOTO 1040 

3150 IF OB*(5,2K>"100" THEN PRINT: PRINT "VOUS NE 

LE PORTEZ PAS AVEC VOUS.": GOTO 1040 
3160 IF L022 THEN PRINT: PRINT "C'EST TRES GENERE 
UX DE VOTRE PART.": GOTO 1040 

3170 PRINT: PRINT "A QUI 7 " : : GOSUB' 1200: PRINT 
31S0 IF LEFT*<QB*<27,1> ,4) OLEFT* <R* ,4) THEN PRINT 
! PRINT "LE MOINS QUE L'ON PUISSE DIRE, C'EST QUE 

VOUS ETES GENEREUX !": GOTO 1040 
3190 PRINT: PRINT "ILS SE JETTENT DESSUS ! CE SERA 

LEUR DERNIER REPAS : ILS MEURENT EN POUSSANT DES 
HURLEMENTS A GLACER UN MORT !" 
3200 OBÏ<5,2>="0"[ CH=I: N0=N0-1 
3210 FOR Z=l TO 5000: NEXT Z: GOTO 670 
3220 IF N09 AND M012 THEN PRINT: PRINT "CA NE S' 
ATTACHE PAS.": GOTO 1040 

3230 IF <M=9 AND CR=1) OR (M=12 AND DR=1> THEN PRI 
NTt PRINT "C'EST DEJA FAIT.": GOTO 1040 
3240 IF DB»tn,2><>"tB»" THEN PRINT: PRINT "VOUS N 
E L'AVEZ PAS.": GOTO 1040 

3250 IF LOI 4 THEN PRINTï PRINT "VOUS NE POUVEZ PB 
S L'ATTACHER ICI.": GOTO 1040 

3260 PRINT: PRINT "OU ? "i: BOSUB 1200: PRINT 
3270 IF LEFT*<R*,4>OLEFT*<0B*<26, 1) ,4) THEN PRINT 
: PRINT "VOUS NE POUVEZ PAS L'ATTACHER LA ! "I GOTO 

1040 
32G0 N0=NÛ-1 
3290 PRINT: FRINT "OK": 0BS<t1,2>=": 

CR=1: GOTO 1040 

::..;r.00 dr=is goto 1040 

3310 IF «03 THEN PRINTt PRINT "CA 

.": GOTO 1040 

3320 IF 0B*(1 ,2>O"100" THEN PRINT 

BLE : IL N'Y A PAS DE " ; OB* ( i , 1 i ; " 

3330 IF LA THEN FRINT: F 

0T0 1040 

3340 LA=1: PRINT: PRINT "OK"! GOTO 1040 

3350 IF MO10 THEN PRINT: PRINT "VOUS NE POUVEZ PA 



|-!=9 THF M 



ILLIJME I 



INT: PRINT "IMPOSSI 
j j ". »; GOTO 1040 

'EST DEJA FAIT. °1 G 



S. " : GOTO 10' 
3360 IF 0B#<: 



),2}< 



THEN PRIT 



"'■ DUE 



'AVEZ PAS AVEC VOUS.": GOTO 1040 

î>18 THEN PRINT : PRINT "JE NE VOIS PAS 
DU VOUS POURRIEZ LE FAIRE";: GOTO 1040 
33B0 IF LE THEN PRINT: PRINT "VOUS L'AVEZ DEJA FAI 
T.": GOTO 1040 

3390 PRJNTl PRINT "OU ? "(I GOBUB 1200: PRINT 
3400 IF LEFT*<RI,4><>LËFTi=(0BÏ(!B,l) ,4> THEN PRIN 
: PRINT "VOUS NE POUVEZ PAS LE METTRE ICI.": GOTO 



3410 



ET QUELQUES P 



GOTO 10. 



L<>3 THEN PRINT : 
I3SER ICI.": GOTO 1040 
344.0 IF AL=0 THEN PRINT: 
SON SUPPORT.": GOTO 1040 
3470 IF QB*(2,2>O"100" THEN PRINT: PRINT "VOUS NE 

L'AVEZ PAS AVEC VOUS.": GOTO 1 
3480 PRINT: PRINT "EN LA REVISSANT, VOUS VOUS ELEC 



ËZ ! 
3490 GOTO 3670 



3540 



RINT: 



RINT "IL l 



5 FOR Z = 
<>2 THEN PRINT: PR 



10: NEXT Z: GOTO 
INT "CA NE SE VISSE PAS 
RINT "ON NE PEUT RIEI 
INT "ELLE EST DEJA SI 



I AND MOI 
GOTO 



3S00 
DETACHE PAS.": 

!F VAL(0BI(9,2))- 
: PRINT "QUELLE "jOl 
F VAL(0B*(12,2) JOL 
PRINT "QUEL "ïOl 
■9 AND CR=0 THEN 
ATTACHEE.": GOTO 1041 
2 AND DR=Q THE! 
S ATTACHE..": GOTO 1040 
3550 

S LE FAIRE D'ICI.": GOTO 
TJ.bB PKINT: PRINT "DK": : 



THEN PRINT: 
!L AND 0Bt(9, 



PRINT!PR1NT"IL N'EST F 
^-RINT "VOUS NE POUVEZ I 



DB*(3,2)<>"100" THEN 
LA PORTEZ PAS SUR VOUS.": Gl 
3600 IF LA=0 THEN PRINT: 
GOTO 1040 



3620 1 
TE QUOI 
3630 I 
PRINT: 
3640 I 

N'Y A PLUS 
3650 PRINT: 
3660 PRINT: 
PRIVE !" 
3670 PRINT 

MISSION : 
36B0 PRINT. 



VAL(0B*(8,; 



GOTO 1040 



>a THEN PRINT: l-'K 



EN DEDANS.": GOTO 1040 

'C'ETAIT DE L'ACIDE.,." 
JE VOUS LAISSE DEVINER CE OUI 



PRINT "VOUS AVEZ FA' 
VOUS ETES VRAIMENT NUL. " 
'SERIEZ -VOUS 



3690 AÏ=INKÈY*- 
3700 IF A*="0" 
3710 CLS: PRI 



GOTO 1040 



BON ??!": GOTO 

PRINT "VOUS NE 
.E E5T DEJA ETEI 



RECOMMENCER 



IF A*="" THEN 36' 
THEN RUN 

"POULE MOUILLEE": 



k PERMIS DE F 

AYER DE LA SURFACE DE LA TERRE TOUS LES SORCIERS. 1 
3750 PRINT: PRINT: PRINT "VOUS MERITE: 
TITRE DE SUPËRMAN DU XXI EME SIECLE 



*(14,1)5" QUE VOUi 
ETES ROMPU LE COL 
3780 PRINT: 
US FOUDROIE 1 
3790 PRINT: PRINT "LES ";0B*(27,i: 
E BOUCHEE DE VOUS ! " : GOTO 3670 

"CET ASCENCEUR t 



"IL FAIT SI NOIR DANS CETTE " 

AVEZ TREBUCHE, ET DUE VOUS V 
. "l GOTO 3670 
"UN ECLAIR VENU DE NULLE PART VO 



1 PAS DE FJOl HTiN 



3BI0 i'KÏNT"MAIS IL SE NET EN MARCHE TOUT SEUL !" 

3S20 PRINT "APRES QUELQUES INSTANTS, IL S'ARRETE 1 

T LA FORTE S'OUVRE SUR... L'ENFER !" 

_'i.î:-[) GOTO 3670 
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CALCUL DE SURFACES 



Si vous n'aimez pas les calculs répétitifs ou si vous n'avez pas la mémoire des formules 

d'aire , voi ci de quoi vous montrer digne des es poirs 

que notre ministre de l'Édueation place en la jeunesse et en notre bea u pays... 



Cédric Bonhommeau 1 




EfrV.*:.':l= Xm 



10 REM Calcul de surfaces 




20 CLB 




30 PRINT 


Voulez-vous calculer l'aire d'un t" 




40 PRINT 


- Carré" 




50 PRINT 






60 PRINT 






70 PRINT 






80 PRINT 






70 PRINT"S - Cercle" 






SUT 


CH 




110 CLS 




120 IF CH=0 THEN 180 




130 IF CH^l THEN 220 




140 IF CH=2 THEN 270 




150 IF CH=3 THEN 320 




160 IF CH=4 THEN 380 




170 IF CM=S THEN 430 




180 PRI NT ■' Donnes -moi la longueur du coté" 




190 INFLIT CD 




200 S=CD«CD 




210 GOTO 480 




220 PRINT"Donnez-moi la longueur et la largeur' 




230 INPUT LA 




240 INPUT LO 




250 S=LA*-LG 




260 GOTO 4B0 




270 PRINT "Donnez -moi la base et la hauteur" 




280 INPUT BA 




290 INPUT HQ 





^ m 


^BftMHft/2 








GOTO 480 






320 


PRIW1 ''Donnez-moi la grande base, la pet 






e et la hauteur" 






330 


INPUT SB 






340 


INPUT PB 








INPUT Hft 






lia 


S=<GB+P8)*HA/2 






370 










PRINT" Donnez -Roi la grande diagonale et 






ite 








390 


INPUT eo 






400 


INPUT PD 






410 


S=GD*PD/2 






420 


GOTO 490 






430 


PRINT" DDTTnàz -HlOÏ le rayon" 
INPUT R 


CTl 


460 


Pl=3. 14159 
S=PI*P,*R 


Ufl 


470 


GGTO 480 




480 


PRINT"Sur*ace=" ;S:"m2" 




490 








300 


PRINT"10 - Oui " 






510 


PRINT" 11 - Ndfi" 






520 


INPUT T 






530 


CLS 






540 


IF T=10 THEN 40 






530 


IF T=ll THEN 360 


■ 




560 


END 
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STRATÉGIE DU PILOU 

II s'agit d'un jeu asymétrique mais équitable, pas plus difficile que le « pile ou face » , 

joué alternathemeut par la machine contre l'humain. 

L'intérêt principal du jeu est l'autorisation de la pratique du bluff 

mais aussi que la stratégie optimale à adopter par l'humain contre l'ordinateur 

n'est pas évidente. 




Au commencement, la machine choi- 
sit une des deux lettres, A ou Z, 
que vous êtes invité à deviner. Si vous 
vous êtes trompé, elle répond « c'est' 
faux », mais si vous avez deviné, elle peut soit 
l'avouer et vous payer un point, soit bluffer en vous 
répondant « c'est faux ». A ce stade, la machine 
vous pose la question « contrôiez-vous ?» ; si vous 
croyez qu'elle n'a pas bluffé, vous répondez « N » 
et vous payez un point, sinon vous contrôlez par 
« O ». La machine révèle alors son choix, mais les 
enjeux sont doublés : si elle a bluffé, elle vous paie 
deux points, sinon c'est vous qui les payez. En 
appuyant sur une touche, vous passez à la 2 e phase 
du jeu où les rôles sont inversés : vous pensez à une 
lettre que l'ordinateur doit deviner et vous pouvez 
bluffer. Une pression, et vous êtes reconduit à la 1 re 
phase. Un totalisateur indique le score du coup, le 
score cumulé et le nombre de coups joués. 
En jouant un nombre important de coups, vous êtes 
statistiquement sûr de perdre si vous adoptez l'une 
des stratégies suivantes : 

— ne jamais bluffer 

— toujours bluffer 

— bluffer une fois sur deux 

— ne jamais contrôler 

— contrôler une fois sur deux 

SPÉCIAL PROGRAMMES 



Alors quelle est la solution ? On démontre mathé- 
matiquement que c'est celle consistant à bluffer une 
fois sur trois et à contrôler deux fois sur trois. C'est 
naturellement cette stratégie qui a été programmée 
et, si vous l'adoptez à votre tour, vous pouvez espé- 
rer faire jeu égal avec le programme. 

P.-L. Gedo ■ 




10 REM STRATEGIE DU FTLOU 






20 REM BUTEUR : P, L, GEDO 






30 REM 






40 REM 1/ INITIATIVE A LA f 




NE 


50 CLEAR:G05UB 450 






60 CLS:P*- , ' , ':G*= , '":R*="" 






70 X = l 






80 GÛSUB 4?0:IF RAN>.5 THEN 




'A" ELSE P*="Z" 


90 PRINT"1/ J'AI CHOISI UNE 
100 INPUT"2/ DEVINEZ. C'EST 


LETTRE (A OU Z)":R£M P 


!PN 


■;□$ 


110 IF B*<>"«" AND H*<>"Z" 


hhl. 


60 


120 IF P*< >DÎ THEN 110 






130 GOSUB 490: IF RANM/3 THEN P 


tIMT"S/ VOUS AVEZ R 


AISaN":QUTO 360 






140 INPUT"3/ C'EST FAUX. CC 




-EZ-VDUS (0 OU N) " 


:R* 






150 IF R*<>"0" AND RtO'-N" THEIv 


60 


160 IF R*s"N" THEN 370 






170 IF PI-Q* THEN PRINT"4/ 


'Aï 


BLUFFE" :GQTO 3B0 


îan PRINT"4/ J'AVAIS UN ":P 


;G0TO 390 


190 REM 






200 REM 2/ INITIATIVE A L'H 






213 CLS:P*="":Q*= ,,,, iR*="" 






220 X=2 







LOI 77HS DÉCEMBRE 1985 



30 



230 


50 SUE 


490: IF RAN> 


j, 


IHEN P* 


"A" EL5E P*= 


Z" 


240 




1/ PENSEZ A 




; LETTRE (A OU Z) " 




25« 


A*=INPUTS<1) :REM 


Att 








260 
270 


PRINT 


2/ EST-CE 




;P*; " 


□ OU N) ";: I 


1PUT R 


IF R* 


>"Q" AND R* 


>" 


■1" THEN 


210 




2B0 


IF Ri 


="0" THEN PR 


NI 


3/ J 'A 


DEVINE":GOT 


3 370 


290 


BOSUB 


500; IF RAN<l/3 


THEN PRINT"3/ JE VOUS CRO 


IS" 


GOTO 












330 


PRINT 


.3/ JE CONTF 




C'EST 


UN "i:INPUT Qt 


310 


IF SîK>"A" AND □* 




!" THEN 


210 




32B 


IF P* 


OS THEN PRI 


UT "4/ VOUS 


AVEZ BLUFFE" 


GOTO 


390 


















a/ je me su 




ROMPE" 


GDTO 380 




340 


REM 












35B 


REM AFFICHAGE 














H=H+1;PRINT 


PR 


NT"JE PERDS 1 POINT 


:GOTO 


400 












370 


M=M+1 


H"H-1| PRINT 


PR 


NT"JE GAGNE 1 POINT 


:GOTO 



400 




3G0 


M=M-2:H=H+2:PRINT:PRINT"JE PERDS 2 POINTS" 


GOT 


400 




390 


M=M+2:H=H-2;PRINT:PRINT"JE GAGNE 2 POINTS" 




410 


IF T=l THEN 3*="C0UP" ELSE S*""GOtlPS" 




420 
430 


PRIMT"SCORE : MACHINE ";Mi" HUMAIN ";H; "/" 


T;S 


A*=INPUTS<1> :REM Attend la frappe d'une to 


jctie 


440 


ON X GOTO 210,60 






REM 




460 


REM GENERATEUR ALEATOIRE 




470 


RANDOMIZE 




4B0 


C=RND(1) 




490 


D=223*C+4925?2ai#:REM # : indicateur de ne 






double précision 






C=D-<lE+10+l)*INTCD/aE+10+l) ) 




510 


RAN=C/1E+10 




520 


RETURN 


■ 



SYSTÈMES LINÉAIRES 



Ce pro gramme éducatif résoud des systèmes d'équations lin éaires 

du premier degré à deux ou trois ineomme s. 

avec affichage des calculs 

intermédiaires de détermination. 

Pour nos chères têtes blondes qui vont a p précier ! 

























RESOLUTION DE 








30 






"R DEGRE (2 A 3 INCONNUES) 








40 














SB REM 


Collège 










60 




Mme G.RA 


1BERT 63500 ISSOIRE 








90 


n 


rnfctruct 


anE è * d *v ter 


























,Y1)-<X2,Y2) : trace une dro 












u point <X2,Y2) 








i 28 














130 


i;i 












140 




ATE 1,10 


PRINT "RESOLUTION DE SYSTEM 








ATIONS 












150 


HK 


MT"Gy S tè 


e de Z équations du premie 








160 


PR 










ft 


MT'SyBtftma de 3 équations du premie 


S 


E 


NOl AND 

N=l THEN 


2" 

N<:::-2 THEN 1500 








200 


1S- 


H---2 THEN 


590 








210 


GOSUE 1300 












ni F 


:LOCATE 2,2: I NPUT " A" '■: rt : LOCATE 2,14 


INPUT"B 


=";B:LOCATE 2,2 


: INPUT"C= ,, lC 








230 




NPUT"D="|D:LOCATE 4,14:INPUT 


F- 


;E 






4,26: IN 










240 




ATE 6,10 


IF B>=0 THEN PRINT A;"X +» 


B 


"Y 


'" 



260 LINE (72 



270 DP=A*E- 



.1NE (72,361- 



"■' Dater 



iDP 



NT"X=";X:LOCATE 
350 LOCATE 
1 "*CHR*(12i 



450 



r us 



xi< 



i LOCATE 
12:PRINT USIh, 
460 A2=ABS(DY 
470 IF A2<B2 

430 S2-INTIA2 



31 



AND DX=0 AND DY=0 THEN LOCATE 17,( 
CE SYSTEME EST INDETERMINE" ! GOTO 1420 

: DP=0 AND <T>X<>a OR DYO0) THEN LOCATE : 
CE SYSTEME EST IMPOSSIBLE" : GOTO 1420 
DX/DP:Y=DY/DP 

AMD Y=INT<Y) THEN LOCATE 17, 1( 
17,26!PRINT"Y="sY ELBE 360 
2:PRINT"S="+CHR* ( 123) +" ( " ) X; " j ' 
GOTO 1420 

^ABSIDP) 
THEN T1=A1:A1=B1:B1=T1 

HEN P1=B1:G0T0 410 



/P1:DP1=ABS(DP)/P1 

1) THEN LOCATE 17 , 10:PRINT"X = " ; Xi 

XI) AND X1>=0 THEN LOCATE 17,9:PRIN 

,12:PRINT USING"atF#":DXl: LOCATE 1G, 

###";DP1:LINE(93,132)-C119,132> 

XI) AND XK0 THEN LOCATE 17,B:PRINT 

,12:PRINT USING"##*";DX1: LOCATE 1B, 

##*"; DPI: LINE 193, 132) -( 1 19, 132) 

B2=ABS ( DP ) 

EN T2=A2:A2-B2:B2=T2 

2) :R2=A2-B2*S2 

SPÉCIAL PROGRAMMES 




VOI 77HS DECEMBRl 1385 



SYSTÈMES LINÉAIRES 



490 IF R=0 THEN P2=B2:GQT0 510 
500 A2=B2:B2=R2:G0T0 480 
510 DY2=ABS(DY)/P2:DP2=ABS(DP)/P2 
520 V2=SGN(Y>*(DY2/DP2) 

530 IF Y2=INT(Y2) THEN LOCATE 17,26iPRINT" Y=" ; Y2 
540 IF Y2<>INT(V2) AND Y2>=0 THEN LOCATE 17,26:PRI 
NT"Y=";LOCATE 16,2B:PRINT USING"###" : DY2: LOCATE la 
,2B: PRINT USING"###" iDP2:LINE (226,132)- (250, 132) 
550 IF Y20INTIY2) AND Y2<0 THEN LQCATE 17,25:PRIN 
T"Y=-":LGCATE 16,28:PR1NT UBINS"###" ; DY2: LOCATE 1B 
,28: (-'Ri NT U3ING"##)t";DP2:LINE (226 , 132) - (250 , 132 ) 
560 IF nOINT(Xl) AND Y2<>INT(Y2> THEN LOCATE 20, 
7:PRIN-| "ti---"*-CHR*(l23> + " ( ,, îSGN(X)*OXl;"/";DPl; ,, î"iS 
GN(Y)*DY2; ,l /";DP2i " ) "+CHR* < 1 25) : GOTO 1420 
570 IF Xi=INT(Xl) AND Y2<>INT(Y2> THEN LOCATE 28,7 
'S-"+CHR*(123)+ M i";Xls"! ";SGN(Y)*DY2i'V ,, ;DP2 



i ")"*CHRI(125);GDT0 1420 

590 IF XtOINT(Xl) AND Y2=INT(1 

:PRINT ,, S="+CHR*U23)*' , C , jSGNiX) 

;">"+CHR*(125) :SQTO 1420 



THEN LOCATE 20,7 



; 2,10;INPUT"I 
,2A:INPUT"D»' 



:: LOCATE I 

,10 LDCATE 4,2iINPUT"E=";EiLQCAT£ 4, 10: INPUT"F-" : 

:LOCATE 4 , 18: INPLJ r '■!.== ■■ ; G: LOCATE 4 , 26: INPUT "H= " J H 
.20 LOCATE 6,2: INPur'M=" ;M: LOCATE 6, 10: INPUT"N=" ! 
iLOCATE 6,lB:INPUT"P=";P;LaCATE 6 ,26: 1NPUT"R=" ; R 

i3« LOCATE 9,10 

.40 if (B>=0 and c;=o) then print a; m x +":B-,"y + ' 



(B>=0 AND C<0) THEN f 
"Z -";D 

l.B«a AND C<QI) THEN PF 
;(C>;"Z =";D 

(B<« AND C>=0) THEN F 



INT I 



âSfl 


LDCATE 


0,10 


















IF CF>» 


S AND 6>=B 


















— îH 


















7BS 


IF <F>- 


3 AND G:0) 
















BS( 




















71B 


IF <F<6 


AND G<0> 


"HEN 








ARR 








4BSC&);' 


Z = M ;H 
















720 


IF !F<Ë 


AND G>=0> 


THEN 


HVI 


T E: "X 












Gî"I =' 


















J-ili 


LQCATE 


2,10 
















740 


IF <N>- 


a AND P>=6 


THEN PR 


NT M; ' 












= ■' ;R 




















IF (N>= 


3 AND P<0) 


THEN 














BS( 


') ;"Z =' 


















760 


if (N<e 


AND P<0) 


HEN 


RINT Mi" 










-";ABS(P);" 


z =":R 


















IF (N'.E 


AND P>=0) 


THEN 


Pffl 


T hi"X 












P:"z =■■ 


R 
















7B0 


LINE (72,52V (72, 


00): LINE 


(72,52 




76,52): 


II 


E (72,100!- 


:76,i00) 
















790 




=*N:D2=B*P 


-C*N: 


~~P- 


G-C*F: 


14 




R*F 


ni- 


=D*F-C*R; D6 


=D*G-C*H:D7-F»R 


H»N 


i>.i^-a*F 


-D 


W:D 


Î=B» 




B00 


DP=A»D1 


-E*D2+M*D3 
















810 




■H*D2+R#D3 
















820 


DY=A»D4 


-E*D5+M*D6 

















S3B IJ/.-A»D7-E-DB+M*D9 

840 PRINT:PRINT"Déterminant principal 
850 IF OP=B THEN PRINT"CE SYSTEME EST 
OU IMPOSSIBLE": GOTO 1220 



370 PRINT"Déterminant associé à Y 


8B0 PRINT"D 








890 X=DX/DP 


Y=DY/DP:Z=DZ/DP 


900 IF X=IM 




ATE 20,4: PR 


NT" X-";X:LOCATE 20,1 


CATE 2a,30i 


RINT" Z="jZ:GQTD 1460 




X).-B1=ABS(DP) 


920 IF ftKS 





930 S1 = INT(A1/B1):R1=A1-BH»S1 

940 IF R1=0 THEN Pl=BlsGQTCI 960 

950 A1=B1:BI=R1:SOTO 930 

960 DX1=ABS(DX)/P1:DP1=ABG(DP>/P1 

970 X1=SGN(X1*(DX1/DP1) 

980 IF X1 = INT(X1) THEN LOCATE 20, 6: PRINT"X = " ; XI 

990 IF XlOINT(Xl) AND X1>=0 THEN LOCATE 20,6;PRIf 

T"X= M :LOCATE 19,B:PRINT USING"##(f l ; DX1 : LOCATE 21, i 

:PRINT USINS"*»#"(DPliLINH (64, 156) - (88, 156) 

1000 IF XlOINT(Xl) AND XK0 THEN LOCATE 20,5;PRir 

T"X=-":LOCATE 19,B:PRINT USING"##tt"; DX1 : LOCATE 21, 
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(INT USING ,l tt##"jDPl:LINE (64, 156) - (BB, 156) 

) A2=ABS(DY) :B2=ABS(DP) 

) IF A2<B2 THEN T2=A2: A2=B2: B2=T2 

1 S2=INT(A2/B2):R2=A2-B2-S2 

! IF R2=0 THEN P2=B2iG0T0 1060 

I A2=B2iB2=R2:GOTO 1030 

) DY2=ABS(DY)/P2;DP2=ABS(DP)/P2 

) Y2=SSN(Y)*(DY2/DP2) 

I IF Y2*=INT(Y2) THEN LOCATE 20, 16: PRINT" Y=" ) Y2 

i IF Y20INT1Y2) AND Y2>=0 THEN LQCATE 20,16:PR 
Y=":LaCATE 19,18:PRINT USINS"»*»!" i DY2:L0CATE 2 

II PRINT USING"*Mt»t ,l ;DP2:LINE ( 144 , 156) - ( 16B, 156) 
I IF Y20INT(Y2> AND Y2<0 THEN LOCATE 20,15:PRi 
=-":LGCATE 19,1S:PRINT USING"**»" ; DY2: LOCATE 2 
HPRINT USINB"##tt ,, iDP2:LINE ( 144, Î56> -( 168, 156! 

P,3^ABS(DZ) :B3=ABS(DP) 
I IF A3<B3 THEN T3=A3: A3=B3:B3=T3 
1 G3=INT(A3/B3):R3=A3-B3*S3 
I IF R3-0 THEN P3=B3:G0TC 1160 

A3=B3iB3=R3:GOTQ 1130 
i DZ3=ABS(DZ)/P3:DP3=ABS(DP)/P3 

Z3=GGN(Z)*(DZ3/DP3) 
I IF Z3=INT(Z3) THEN LOCATE 20,26:PRINT"Z=" [ Z3 

IF Z30INT1Z3) AND Z3>-0 THEN LOCATE 20,26:PR 
Z= ,l iLOCATE 19,281 PRINT USING' , *I## ,, ; DZ3:L0CATE 2 
USING"##tt" ; DP3; LINE (224, 156) - 1248, 156) 
THEN LOCATE 20,25:PRI 



' Z3< :IW 



!B:PRIf 



.INE 



t"###"iDZ3:LOCATE 2 
224,1 



1 OR E*f 



THEN PRINT"Déter 



1,2B:F 

1210 GQTO 1460 
1220 IF A*F-B»E< 
N PRINT"Dèt»rmifi 

1230 IF D3O0 OR DIOB DR D2< >l 

1240 IF A*G-C*E<>0 OR E*P-G*M:: 
N PRINT"Détei-minant caractSris' 



1250 IF DZ=0 THEN PRINT: PRINT"CE SYSTEME EST INDET 

ERMINE PAR RAPPORT A Z":GDTO 1460 

1260 IF DX=0 THEN PRINT: PRINT"CE SYSTEME EGT INDET 

ERMINE PAR RAPPORT A X":BOT0 1460 

1270 IF DY=0 THEN PRINT: PRINVCE SYSTEME EST INDET 

ERMIME PAR RAPPORT A Y";GOTQ 1460 

1INT"CE SYSTEME EST IMPOSSIBLE": GOTO 1 



460 
1290 E 



1460 

5 CLS:LOCATE 3,WlPRIf 



"iLOCATE 1B,12:PRIN- 
NT:PRINT:LOCATE 21. 
■'iLOCATE 22,3:PRir 



ENTIERS RELATIFS " 
:PRINT"AVANT DE COMMEN 
"TRANSFORMEZ VOS SYSTE 



1410 XÏ=INKEYI:IF X»=CHR*(13) THEN RETURN ELSE 141 



1420 LOCATE 22, 1 : INPUT "VOULEZ-VOUS RESOUDRE UN AUT 

RE SYSTEME DU MEME TYPE (S) , REVOIR LE MENU (M) 

OU AVEZ-VOUS TERMINE (F) ";R* 
1430 IF Rï^'S" THEN 220 
1440 IF R*="M" THEN CLSiBOTO 130 
1450 IF R*="F" THEN CLS:LOCATE 13,10:PRINT"AU REVO 



14&0 LOCATE 22,1: INPUT"V0ULEZ-VOUS RESOUDRE UN 
RE SYSTEME DU MEME TYPE (S) , REVOIR LE MENU 
OU AVEZ-VOUS TERMINE (F) "[R* 



AUT 



1500 CLS:LOCATE ll,l:PRINT"VOULEZ-VOUS PAIR! 

TION AU TEXTE •. !":PRINT!PRINT" RECOMMENCEZ 

1510 LOCATE 24,30:PRINT"<RETURN>" 

1520 X*=INKEY*:IF XS-CHR*(13) THEN CLS:G0TO 



AU REVO 
ATTEN 



32 



AUTOMATE 

DÉCODEUR 

DE MASTERMIND 



Qui n'a pas dans sa ludothèque un programme de Mastermind de son cru? 
Nous ne vous ferons pas l'injure de vous eu pro poser u n, 
car le vôtre est sûrement excellent mais, comme la plu part de ses semblables , 
il doit être uniquement eodffieateur ; \ * i f 

il génère un code secret que vous ê t es invité •— * (Zj — 
à découvrir en un minimum de cou ps. ' 
Le pro gramme que nous vous 
présentons assnre la fonction in verse. 




Vous cachez un code et c'est 
le programme qui joue le rôle 
de l'« humain », posant les ques- 
tions sous forme de propositions 
auxquelles vous devez répondre 
par une cotation ; celle-ci est de 
la forme NB, N le nombre de 
« noirs » et B le nombre de 
« blancs ». Le code caché est 
toujours trouvé en cinq coups au 
maximum. Les règles sont celles 
du Mastermind classique à qua- 
tre positions et six couleurs, repré- 
sentées par les lettres A à F. 

R-L. GedoB 




77HS DÉCEMBRE 19SS 



AUTOMATE DÉCODEUR DE MASTERMIND 



10 REM Initialisi 

20 CLS:CLEAR 

30 ON ERRGR GQTO 110 

40 GDSUB 130 

50 REM PropQ5itit 

60 E=1122:G0SUB 250:ON l 
30, 1270,1400,1410,1510,! 
7(3 IF E=0 THEN 110 
B0 GOSUB 250: GOSUB 480 
90 GOSUB 250:GOSUB 480 



GOSUB 730,870,370,1000,: 



en : 



-bu; 



:A=RND(1):NEXT K 
*RND<1) ):R=3+INT(3* 
THEN B(I)=0:GOTO : 



200 READ L*(B(I! ) 

210 NEXT I 

220 DATA A,B,C,D,E,F 

230 RETURN 

240 REM Affichage 



250 U=U+ 
260 PRINT 
270 IF U<5 



:<U>=Ë:GOSUB 340 
THEN INFUT" f 



1 ELSE PRINT 



=.4>-I2*<N=1.31-13*<N=2.2> 




310 IF E=0 DR M=0 THEN 110 




320 RETURN 




330 REM Variables alphanumériques 




340 Et=STRÏ(£> :«*='"■ 




350 FOR 1=2 TO 5 




360 F(I)=VAL(MID*(E*,I,i)> 




370 IF N(l)=l THEN IF F i I > =2 THEN F(I)=: 


ELSE 


(1)=1 THEN F(I)=2 




3B0 T*tI)=L*(F(D) 




390 NEXT I 




400 WI-T*(R) :TI(R)=Tf (2> : T* (21=W* 





490 READ C 

500 IF 0=0 THEN 110 

510 IF Z=0 THEN 530 

520 Ë=E(2):GD5UB 590: IF 

6 THEN 490 

530 E=£(3>:G0SUB 590: IF 

6 THEN 490 

540 IF Z=l THEN 560 

550 E=E(4>iGG5UB 590:IF 

6 THEN 490 

560 E=C 

570 RETURN 



1(2) THEN 1 = 1 + 
1(3) THEN 1 = 1 + 









E$-STR*IE) :C*=STR*(C) 


nrtlfl 


X=0:Y=0 


IS1ÏI 


FOR K=2 TD 5 


A '/M 


E*(K>=MID*(ES,K,1) 


b,W 


C#(K)=MID*(CÏ,K T 1> 




IF E#IK)=C*(K> THEN X=X+1 


HfM 


NEXT K 


hhVI 


FOR 1=2 TO 5:F0R J=2 TO 5 


à /ta 


IF E*(I)=C£U) THEN CS(J) 


*H<fl 


NEXT J 






t<m 




/10 


RETURN 







730 E=3345;G05UB 250:CJN M GQTO 740,750,760,770,; 

, 790, S00 , SI , B20 , 830 , 840 , S50 , 360 

740 E =6666: RESTORE 1570:RETURN 

750 E =4666; RESTORE 1580:RETURN 

760 Ë=4646: RESTORE 1590:RETURN 

770 E=4556:REST0RE 1600:R£TURN 



7G0 E=4465j[ 
790 E- 3646 5 RESTORE 
TO 440 

800 E=4653: RESTORE 
B10 E-5334: RESTORE 
OTO 440 

B20 E=3465: RESTORE 
È30 E=3464: RESTORE 
040 E=4533: RESTORE 
B50 E=3453: RESTORE 
860 E=3435: RESTORE 
370 Ë=2344: GOSUB 250 
, 930 , 940 , 950, 94,0 , 970 
880 E=5615:RE5T0RE 
890 E=3516: RESTORE 
3315» (N=3> -4561* <N= 
900 E=3315: RESTORE 
910 £=5236: RESTORE 
6?43«<N-1.2):G0T0 ' 
920 E-4415:KLBT0RE 
GOTO 440 
930 E=2546: RESTORE 
940 E=3235: RESTORE 
950 E=6243: RESTORE 
960 E=2445= RESTORE 
970 E=2345: RESTORE 
9S0 £=4234: RESTORE 
990 E=2434!RE5TQRE 
.000 E=2324:GOSUB : 



640:GOSUB 250:E=-4336*(N=.2> : 

650: RETURN 
660: RETURN 
670: RETURN 
680: RETURN 
690: RETURN 
:DN M GQTO 880,890,900,910,9; 

!, 980,990 
700; RETURN 

710:GOSUB 250:E=-4566*(N=1.2) 
.2>:G0T0 440 
720: RETURN 

730:GOSUB 250;E=-3255«(N=2.2> 

740:GOSUB 250:E=-4256*(N=1.1) 



RETURN 
RETURN 
RETURN 



6:RËST0RE 
OTO 440 
020 E=ï 

E=2515: 
E=3213: 
050 E=245l! 



RESTORE 
RESTORE 
RE STORE 
RESTORE 



060 E=2351: RESTORE 
07(3 E=3241l 
0B0 E=2235: 
090 E=2256: RËSTORË 
00 E=231 4: RESTORE 
£=2243i RESTORE 
20 E=2234: RESTORE 
30 E=1314:G0SUB 2.1 
),12BB,i; 
RESTORE 
RËSTORË 
RESTORE 
RESTORË 
RESTORE 



40 E-626; 
50 E=246! 
60 E=625 
70 E=215; 
E=I246 
GOTD 440 



RETURN 

RETURN 

RETURN 
IN M GOTO 1010,1020,10: 
090,1100,0,1110,1120 
!0:GOSUB 250:E=-5616*ir 



30: RETURN 
40: RETURN 
50: RETURN 
60: RETURN 
70: RETURN 
B0: RETURN 
90: RETURN 
00: RETURN 
10: RETURN 
20: RETURN 
30: RETURN 

ON M GOTO 1140,1151 
,1220,1230,1240,1251 
40: RETURN 
50: RETURN 
60: RETURN 
70: RETURN 
BB:GOSUB 250:E=- 636; 



190 


F- 


5611 


■/m 


f = 


4151 


710 


h= 




??ïi 


F* 


1331 


»SB 


K- 


4641 


■/Ait 


t> 


3141 


VWfl 


h- 


1431 




F" 


1341 


2/ia 


t- 


1234 



RESTORE 1990 



2030: 
RËSTORË 2040: 
RESTORE 2050: 
RESTORE 2060: 



RETURN 



!32E, : 



RESTORE 2070: 

RËSTORË 2080: 

RESTORE 2090: 

RESTORE 2: 

RESTORE 2: 

RESTORE 2 

RESTORE 2: 



280 E-6522; 
290 E=215 
300 E=3582: 

E=1526 
320 E=653 
330 E=412 
340 E-133: 
350 Ë=5624: RËSTORË 2 
360 E=1134:REST0RE 2: 

E=3142iREST0RE 2 
380 E= 1342: RESTORE 2: 
390 E=1324iREST0RË 2 
400 E=2624j RESTORE 2. 
.410 E-1213: 
40,1450,1461 
420 E=452: 
430 E=452: 
440 E=453: 
450 E=2145: 
460 £=2145: 
470 E=124: 
480 E=124 
490 E=213 
500 £=123 
510 E=122: 



RESTORE 2010: RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

GOSUB 250:ON M GOTO 0,1280,1290,1 
380 ,.1598 



RETURN 
RETURN 
RETURN 



RETURN 
RETURN 
RETURN 
40: RETURN 
50: RETURN 



70: RETURN 
SB: RETURN 
iZ-liRETURt 

I M GOTO 0,1 
1,1470,1480,1490,0,1500 
RESTORE 2200:RETURN 
RESTORE 2210: RETURN 
RESTORE 2220:RETURN 
RESTORE 2230: RETURN 
RESTORE 2240:RETURN 
RESTORE 2250: RETURN 
RESTORE 2260:R£TURN 
RËSTORË 2270: RETURN 
RESTORE 22B0:RETURN 
RËSTORË 2290: Z=î: GOSUB 



,0,1420,1430,: 



WftH mOGHAMUES 
- Oi TTttS KCEW1E 1385 



34- 






=.2>+<N=l. 1)+<N=2> 1-2145 


*CIN=.3) + ( 


1=1.2 


)-12 


45* ((N 


-2.1>+(N=3) >:GOTO 410 










1520 E=2526i RESTORE 2300 


Z=lsGOSUB 


250: 






. 1> -4121* <N=I) -1224* (N=l 


1) :BOT0 440 






1530 E=2211:RESTaRE 2310 


Z=1:RETURN 






1540 E=1312:REST0RE 2320 


Z-1:G0SUB 


250: 


E— 21 




.3>-1221*<N=1.2)-2112*<N 


-2.D-1212 








1550 E-U22:REST0RE 2330 


RETURN 








1560 REM DATA 










1570 DATA 6666,0 










1580 DATA 6636,4464,4466 


4664,4666 


33S6 


5566 


5656, 


5666,6464,6466,6556,6566 


6656,6663 


6664 







1590 DATA 3666,4444,4446 


4644,4646 


5555 


5565 


5655, 


5665 , 6366 , 6444 , 6446 , 6555 
1600 DATA 4566,4636,4654 


6565,6644 


6646 


6635 


6665, 


6564,4434 


4436 


4454 


4456, 


4463 , 4554 , 4556 , 4564 , 4634 


4656,4663 


5434 


5456 


5464, 


5466 , 5536 , 5553 , 5554 , 5563 


5564,5636 


5693 


5654 


5663, 


5664,6434,6436,6454,6456 


6463,6536 


6353 


6554 


6363, 


6633 , 6634 , 6653, 6654 ,0 










1610 DATA 4665,5635,5646 


3464,3466 


3556 


3566 


3633, 


3636 , 3656 , 3663 , 3664 , 4364 


4366,4443 


4433 


4463 


4544, 


4546 , 4555 , 4565 , 4643 , 4655 


5356,5366 


5444 


5446 


5455, 


5465 , 5535 , 5544 , 5546 , 5644 


6333,6336 


6356 


6363 




6443,6455,6465,6535,6544 


6546,6635 


6643 


a 




1620 DATA 3565,3655,3333 


3336,3363 


3366 


3444 


3446, 


3555 , 3644 , 3646 , 3665 ,4344 


4346,4445 


4543 


4646 


5355, 


5365 , 5445 , 5545 , 5645 , 6344 


6346,6355 






6545, 


6645,0 










1630 DATA 4433,4453,4534 


4536,4553 


4563 


4633 




5434 , 5436 , 5453 , 5463 , 5533 


5534 , 5633 


3634 


6433 


6453, 


6533,6534,0 










1640 DATA 3634,4543,5336 


3433,3434 


3436 


3454 


3456, 


3463,3533 , 3536, 3553 . 3554 


3563 , 3564 


3633 


3654 


4333, 


4334 , 4336 , 4354 , 4356 , 4363 


4435,4535 


4635 


5333 




5354 , 5363 , 5364 , 5435 , 5443 


5543,5643 


6334 


6353 


6354, 


6435,6543,0 










1650 DATA 3334,3353,3356 


3364,3443 


3455 


3465 


3533, 


3544 , 3546 , 3635 , 3643 , 4343 


4355 , 4365 


3333 




5346 , 


6335,6343,0 










1660 DATA 3335,3343.3344 


3346 , 3355 


3365 


3445 


3543, 


3645 , 434 5 , 5345 , 6345 , 










1670 DATA 4535,5433,0 










1680 DATA 3453,3534,4353 


5334 , 








1670 DATA 3435,3354,3543 


4335,5343 








1700 DATA 5616, 55:5, 5516 


5551 .5561 


3615 






6515,6516,6551,6561,6615 


6616,6651 








1710 DATA 3551,5613,6255 


3513,3515 


3516 


3531 


3561, 






4516 


4551 




4615,4616,4651,4661,5255 


5256.5265 


5266 




5416, 


545 1,546:, 55 13, 5531 ,5631 


6256,6265 




6413 


6416, 


6451,6461,6513,6531,6613 


6631,0 








1720 DATA 2566,3316,5361 


5614,5641 




2555 


2556, 


2565 , 2655 , 26L;« . 2665 . 2666 


3313,3315 


3331 


3351 


3361, 


5313,5315,5316,5331,5351 


5314,5541 


6313 


6315 


6316, 


6331,6351,6361,6514,6541 


6641,0 








1730 DATA 3451,4266,4415 


3233,3235 


3236 


3253 


3255, 


3256 , 3263 , 3265 , 3266 ,3413 


3415,3416 


3431 


3461 


4255, 


4256, 4265, 44 16-, 4451, 4461 


4513.4531 


4613 


4631 


5233, 


5235 , 5236 ,5253 , 5263 ,5413 


5431 ,6233 


6235 


6236 


6253, 


6263,6413,6431,0 










1740 DATA 2465,2536,2636 


4351,4614 


5246 


2433 


2456, 


2466, 2533 , 2535 , 2553 . 2563 


2633,2635 




2663 


35 1 4 , ■ 


3541,3614,3641,4313,4315 


4316,4331 


4361 


4414 


4441, 


4514, 454 1 , 464 1 , 5245 , 5254 


5264,5414 


5441 




6246, 


6254,6264,6414,6441,0 










1750 DATA 2333,2335,2336 


2353,2355 


2356 


2363 


2365, 


2366 , 2545 , 2546 , 2554 , 2564 


2645,2646 


2654 


2664 


3314, 


3341 , 53 1 4 , 534 1 , 631 4 , 634 1 











1760 DATA 4233,4235,4236 


4253,4263 


4413 


4431 





1770 DATA 2453,2433,2435 




3234 


3243 


3245, 


3246 , 3254 , 3264 ,3414, 344 1 


4245,4246 


4254 


4264 




5243,6234,6243,0 










1780 DATA 4244,2445,2446 


2454,2464 


2534 


2543 


2634, 


2643,4314,4341,5244,6244 











1790 DATA 2334,2343,2345 


2346,2354 


2364 


2444 


2544, 


2644 , 










1800 DATA 4234,4243,0 










1810 DATA 2434,2443,3244 










1820 DATA 5511,5611,6511 


6611,0 








1830 DATA 3511,3611,4411 


4511,4611 


5215 




5251, 


5261,5411,6215,6216,6251 


6261,6411 









1840 DATA 2515,2516,2551 


2561,2615 


2616 


2651 


2661, 


3311,5311,6311,0 










1850 DATA 4261,3213,3215 


3216,3231 


3251 


3261 


3411, 


4215,4216,4241,4251,5213 


5231,5241 


6213 


6231 


6241, 






1860 DATA 2255 


2256,2265 


2266 


2415 


2416 


2441 


2451, 


2461,2513.2531 


2541,2613 


2631 


2641 






5214, 


6214,0 














1870 DATA 2313 

îeaa data 3241 


2315,2316 


2331 


2351 


2361 


2414 


2514, 


4213,4231 













1890 DATA 2233 


2235,2236 


2243 


2246 


2253 


2263 


2413, 


2431,3214,0 














1900 DATA 2244 


2254,2264 


2341 











1910 DATA 2314 















1920 DATA 2243 















1930 DATA 2234 















1940 DATA 2225 


2226,2252 


2262 


2525 


2526 


2552 


2562, 


2625,2626.2632 


2662,5225 


5226 


5252 


5262 


6225 


6226, 


6252, 6262, 














1950 DATA 2425 


3252,4252 


5223 


2153 


2156 


2165 


2166, 


2223,2232,224;. 


2426,2442 


2452 


2462 


2523 


2532 


2542, 


2623,2632,2642 


3223,3225 


3226 




3262 


4225 


4226, 


4242,4262,5232 


5242,5521 






6232 


6242 


6521, 


6621,0 














1960 DATA 2326 


1255,1256 


1263 


1266 


2224 


2323 


2325, 


2332,2352,2362 


2424,2524 


2624 




5224 


5312 


5612, 


6224,6512,6612 















1970 DATA 4321 


4621,3151 


2133 


2135 


2136 


2145 


2146, 


2153,2163,2423 


2432,3242 


3521 


3621 


4223 


4232 


4421, 


5161,5421,6151 


6161,6421 













19B0 DATA 1235 


4512,4612 


1233 


1236 


1245 


1246 


1253, 


1263,1551,1561 


1651,1661 


2144 


2134 


2164 


2342 


3224, 


3321,3512,3612 


4412,5111 


5115 


5116 


5321 


5412 




6115,6116,6321 


6412,0 












1990 DATA 1244 


1254,1264 


1511 


1515 


1516 






1616,2324,3312 


5312,6312 












2000 DATA 3161 


4141,2143 


3131 


3151 


3421 


4131 


4161 , 


5131,5141 ,6131 


6141,0 












2010 DATA 3116 


1243,1441 


1431 


1461 


1531 


1541 


1631, 


1641,2134,3111 


3113,3115 


3412 




4115 


4116 


4321, 


5113,6113,0 














2020 DATA 1234 


1331,1351 


1361 




1415 




1513, 


1613,4114,4312 


5114,6114 













2030 DATA 1311 


1313,1315 


1316 












4131 ,0 












2050 DATA 1431 


4113,0 












2060 DATA 1341 


1413,3114 













2070 DATA 6522 


2522,2622 


5522 


5622 


6622 







2030 DATA 1111 


1115,1116 


1151 


1155 


1156 


1161 


1165, 


1166,2222.5222 


6222,0 












2090 DATA 4622 


2322,2422 


3322 


3522 


3622 


4422 


4522, 


5125,5126,5152 


5162,5322 


5422 


6123 


6126 


6132 


6162, 


6322,6422,0 














2100 DATA 1113 


1141,1145 




1153 


1163 


1523 


1526, 


1552,1562, 1625 


1626,1652 


1662 


3222 


4222 







2110 DATA 1114 



2120 DATA 3126 


1131,1133 


1135 


1136 


1144 


1154 


1164, 


3123,3125 


3152 


3162 


3422 


4125 


4126, 


4142,4152,4162 


4322,5123 


5142 




6142 







2130 DATA 1462 


3132,1143 


1 323 


1325 


1326 


1352 


1362, 


1425,1426, 1442 


1452,1523 


1542 




1642 




5124, 


5132,6124,6132 















2140 DATA 1332 














2150 DATA 1134 
















4123,0 












2170 DATA 1342 


1423,3124 


4132 











21B0 DATA 1324,1432,0 












2190 DATA 2213 


2214,2215 


2216 


2231 


2241 


2231 


2261, 


2311,2411,2511 


2611,3211 


4211 


5211 


6211 






2200 DATA 2421 


2521,2621 













2210 DATA 2221 


2412,2512 


2612 


4221 


5221 







2220 DATA 2212 


4212,5212 


6212 










2230 DATA 2141 


2151,2161 


2321 


a 








2240 DATA 2111 


2114,2115 


2116 


2312 


3221 






2250 DATA 1241 


1251,1261 


3212 










2260 DATA 1211 


1214,1215 













2270 DATA 2131 














2280 DATA 2113 














2290 DATA 1223 


1 224 , 1 225 


1226 


1232 


1242 


1252 


1262, 


1312,1321,1412 


1421,1312 


1521 


1612 


1621 


2123 


2124, 


2125,2126,2132 


2142,2152 


2162 


3112 


3121 




4121, 


5112,5121,6112 


6121,0 












2300 DATA 1112 


1121,1123 


1124 


1125 


1126 




1142, 


1152,1162,1222 


1322,1422 


1522 




2122 


3122 


4122, 


5122,6122,0 














2310 DATA 2211 


a 












2320 DATA 2121 


1221,2112 


1212 











2330 DATA 1122 













■ 



35 



SPÉCIAL PROGRAMMES 
VQI77HS DÉCEMBRE 1985 



LEMESSI 

m 

ARRIVÉ... 



Voici enfin parmi nous 

le Messager Informatiq ue. 

Qu'est-ce Que vous dîtes ? 

Maïs si, c 9 est un pro gramme ! 

Sa mission est de gérer 

une boîte aux lettres informatique. 




Pour cela est attribué à chaque 
utilisateur un numéro de code 
personnel qui lui permet d'accéder 
en toute confidentialité aux mes- 
sages le concernant. Chaque uti- 
lisateur peut émettre ou recevoir 
des messages en direction ou en 
provenance de tout autre utilisa- 
teur, Un dernier point, lors de la 
première mise en œuvre, faites un 
RUN 700 pour initialiser le fichier 
et définir une bonne fois pour tou- 
tes les noms et codes des utilisa- 
teurs. 
A vous d'envoyer désormais... 

G. Toutiat ■ 




10 REM Instructions spécifiques a adapter lis 


tées 


de 660 à 690 




20 CLS 




30 PRI NT" Boîte à me5sages":PRINT:PRINT 




40 PRINT"Un peu de patience SVP..." 




50 OPEN "CODES" FOR 1NPUT AS #2 




60 TNPUT»2,NU 




70 DTM NU* (NU) ,CS(NU> ,MS<NU,NU> 




80 FDR 1=1 TO NU 




90 INPUT*2,N$(I) ,C*(I) 




100 NEXT I 




110 CLDSE 




120 OPEN "MESSAGES" FDR INFUT AS »2 




130 INPUT#2,F 




140 IF F=0 THEN 190 




130 FDR 1=1 TO NU 




160 FOR J=l TO NU 




170 INPUT#2,M*fI,J> 




180 NEXT J:NEXT I 




170 CLOSE 




200 GO SUS 260 




210 A*=INKEYS 




220 IF A*="l" THEN G05UB 610:GO5UB 320JËO5UB 


260: G 


CiTO 210 




230 IF A*="2" THEN OOSUB 610!GOSUB 400:GOSUB 


260: G 


OTO 210 




240 IF AS="3" THEN GQSUB 510IGOSUB 260 




350 00T0 210 




260 CLS 




270 PRINT"1. Emettre un message" 




2S0 PRINT"2. Consulter son casier" 




290 PRINT"3. Fin de journée" 




300 PRINT:PRINT"Choix 7" 

310 RETURN 

320 FRINT"Emettre , ':PRINT 






330 INPUT" votre numéro d'utilisateur ";L 




340 IF L<0 OR L>NU THEN 330 




350 INPUT"Le numéro du destinataire ■ ; 




360 IF CXH OR ONU THEN 350 




370 PRINT:PRINT"De "îNSID;" à " ; N* <C> : PRINT 




390 INPUT" Message : ";rl*IL,C) 




390 RETURN 




400 PRINT"Consulter le casier" 




410 INPUT"Votre numéro d'utilisateur "jL 




420 IF L<0 OR L>NU THEN 410 




430 INPUT"Votre code d'accès ";C*sIF 


C«>C 


Î1L) THEN RETURN 




440 FOR 1-1 TO NU 




450 PRINT 




460 PRINT"De " ; N* ( I ) ; " :":PRINT 




470 PRINT M*U,L) 




480 NEXT I 




490 FDR J=l TO NU*1000:NEXT JîRËM Temporisât 


on pc. 


ur lecture 




500 RETURN 




510 CLS 




520 PRINT "Sauvegarde. . . " 




530 OPEN "MESSAGES" FOR OUTPUT AS #2 




540 PRINT#2,1 




550 FOR 1=1 TO NU 




560 FOR J=l TO NU 




570 WRITE#2,M*(I,J> 








590 CLOSE 




600 RETURN 




610 CLS 




620 FDR 1=1 TO NU 




630 PRINT I,N*<I), 




640 NEXT I:PRINT:PRINT 




650 RETURN 




660 REM lignes 50,120 ! ouverture de fichier 


pour 






670 REM lignes 530,340,700 : idem pour sauve 


garde 






680 REM CLDSE : -fermeture des fichiers 




690 REM WRITE* : écriture séquentielle sur d 








700 REM Partie à exécuter avant première uti 


lisati 


710 CLS 




720 PRINT"Bofte à messages : routine prêlimi 




730 PRINT:PRINT:PRINT 




740 INPUT"Nombre d'utilisateurs : " ; NU 
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75B I 



,C*(t 



7bQ FOR 1=1 TO NU 

770 CI..S 

760 PRINT'Utilisateur 

790 INFUT"Vatre nom 

810 PRINT: INPUT"Appri 

z <RETURN? "|R* 

820 NEXT I 

830 CLS 



840 OPEN "CODES" FOR DUTP 


UT AS «2 




950 pr:nt#2,nu 






060 FCIR 1-1 TO NU 






370 WRITE-:#2,N*(I> ,C*(I) 






380 NEXT I 






890 CLOSE 






900 OPEN "MESSAGES" FOR t 


JTPUT AS #2 




910 WRlTEtf2,0 






920 CLOSE 






930 END 




■ 



PETITE MULTIPLICATION 
GRANDE PRÉCISION 



Ce programm e ultra-court don ne le produit de deux nombres de 255 chiffres au plus. 

L'accent a été mis sur l'éeonomie de temps et d'octets, ainsi que sur la présentation du 

résultat , dont les chiffres sont g roupés par huit. 

Vous obtenez ainsi un ra pport puissance/taille iné galé... 



Pierre BarnouinB 








«ON 



@mêê> 



V* % 



.1BB 


REM DEF 




A-H : 


A a 


H en 


double 


srécltrtan 






REM # : 




étante en 












DEFDBL A-H 


DIM A 


1,3 




=>3> :H= 100000000* 




130 


CLS: FOR 


1=1 


TO 1 




INPUT"* ":P* 


L^LENCP* 




INT 


L/8) !A< 


,N 


=VAL(LEFT*(P«, 


L F10D £ 






140 


FOR J=i 


III 


vl:A(I 


J-l 


=VAL 


MIDJiP* 




NEXT JiNEXT 


I 














150 
A Cl 
160 


FOR 1=0 


Ta 


M:E=A 


0,1 


iFOR 


J-l TO 


+N:F=B(J 


+E* 


G=INT<F 


H>E 


B(J+1 


-B(J+1)+G:B(J)=F 






EXT 


I 
















170 


REM ** 


*i 


ftehm 


des 


• an 


tête des nombres 


â g 




















PRINT:PRIN1 


sL=M+N+(G 


0):PRÏNT US1 




B(L-t-l); :FOR 


l=t 


TO L 












190 


REM SPC 


hl) 














200 


PRINT SPC(- 






<B>> 


RIGHT*(STR*(B(L- 




! ,8 


;iNEXT 


lEND 










■ 
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RANGEMENT 
DE DIAPOSITIVES 

Si vous êtes m fanatique de la diapositive (dia p our les intimes! . 

ee pro gramme de recherche est fait pour vous. 

Eu effet, retrouver une diapositive parmi p lusieurs centaines d'autres relève 

souvent de l'exploit sportif... 

Désormais, il vous suffira de donner une indication sur la dia cherchée et votre 

ordinateur vous indiquera le n° de sa boite et sa place à l'intérieur de cette boite. 

Emmanuel Letellier 

SPÉCIAL ffNW&WMES 
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RANGEMENT DIAF 



30 CLS 

40 RESTORE 

sa print"choisi; 



3-PAR SUJET DANS I 



-y sujet »r- 



■ SLIJ£Tt = Si 1 



21B 1 



170 



boite,! 



= LIEU "= 
230 CLS:INPUT"LIEU i 
240 READ SUJET*, LIEUJ 

" SUJET*="FIN" THEN 600 
- LIEU*=L* THEN GDSUB 670 ELSE 240 
PRI NT: INPUT "VOULEZ- VOUS POURSUIVRE l 
J MEME LIEU DANS Lu MEME BOITE (0/N) 
I" THEN 620 ELSE 240 
REM -— LIEU-SUJET === 

INPUT"SUJET : "(S* 



.ItUt^Lf AND SUJETÏ-S) 



9 REM -" BQITË+D1A -== 



REM === BOITE-SUJET = 
INPUl'-aLJJET : " t 5* 



J MEME SUJET I 



i-VOUS POURSUIVRE Lfl 
_A MEME BOITE (Û/N) 
Î0 ELBE 460 



■I 590 ELSE 550 



630 INPUT" VOULEZ -\ 

640 IF C*^"Q" THEf 

660 END 




£40 



Ce pro gramme ouvert 
car pouvant être allongé ou adapté 
à d'autres matières , 
rendra d'inestimables services 
aux enseignants de toutes sortes. 
Pour rajouter des questions/réponses, 
il suffit de mo difie r la variable Y 
correspondante ainsi i 
deux DATAs , 
un pour la question I 
et l'autre J 
pour la ré ponse. 



Marc Mollaret ■ 




AJOUTER i 



LA VARIABLE 
DATA QUESTIO 



10 REM PROGRAMME OUVERT 

N CORRESPONDANTE 

20 REM ET RAJOUTER 2 DATA A LA SUITE 

N DATA REPONSE) 

30 REM ENSEIGNEMENT ASSITE PAR ORDINATEUR 

40 REM NOM DU PROGRAMME > EAO 

50 PO=0:Fl=0:P2=0:P3=0:F4=0:P5=0:P6-0i P7=0:P8=0:F 

60 REM INITIALISE LE TIRADE NB AU HASARD 
70 CLS: INPUT "TAPER 1 NOMERE A 2 CHIFFRES " î N* 
80 IF LEN (N#J O 2 THEN 70 
90 FUR 1= I TO VAL (N*) : N=RND [ 1 ) :NEXT I 
00 REM NOMBRE NI QUESTIONS SUR LES FEM: 



NS— 

10 DATA 



30 DATA 

50 DATA 
60 DATA 
70 DATA 
SO DATA 
90 DATA 
200 DATA 
210 REM - 



-QUESTIO! 



: SUR LE F 



NIN DES MO 



CERF" 
BICHE" 
BOULANGER" 
BOULANGERE" 



S PLURIELS— 
220 DATA " — 



NOMBRE N2 OUESTIONS SUR LE 

—QUESTIONS SUR LE PLURIEL DES MO 



-39- 
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240 DATA 


"CANAL" 


230 DATA 


"CANAUX" 


260 DATA 


"CAILLOU" 


270 DATA 


"CAILLOUX" 


2B0 DATA 


"TOUT" 


290 DATA 


■TOUS" 


300 DATA 


"TROU" 


310 DATA 


'TROUS" 


328 REM - 


NOMBRE N3 QUESTIONS CONJUGAI 






330 DATA 






340 N3=2 




358 DATA 


■CHANTER 1 PERS SING PASSE COMP. " 


360 DATA 


"J'AI CHANTE" 


370 DATA 


'ETRE 1 PERS PLU. IMPARFAIT" 


3 30 DATA 


'NOUS ETIONS" 


390 REM - 


NOMBRE N4 QUESTIONS HISTOIRE 


400 DATA 






410 N4=2 






•LES DESCENDANTS DE CLOVIS SONT LES" 


430 DATA 


•MEROVINGIENS" 


440 DATA 


■LES DESCENDANTS DE CHARLEMAGNE SONT LES" 


450 DATA 


'CAROLINGIENS" 










47B DATA 






4B0 N5=2 
490 DATA 


'POUR PASSER D'UNE VALLEE A L'AUTRE NOUS 


PRENONS UN" 


500 DATA 


'COL" 


510 DATA 

A" 

520 DATA 


'LE GRAND FLEUVE PASSANT PAR NANTES EST L 


'LOIRE" 






540 DATA 
550 N6=2 






560 DATA 


'UNE DONNEE EXT. EST MISE EN MEMOIRE AVEC 


570 DATA 


'LECTURE" 


580 DATA 


'UNE DONNEE INT. EST SORTIE DE LA MEMOIRE 


AVEC LA 


-DNCTION" 


590 DATA 


ECRITURE" 


600 REM - 






610 DATA 




620 N7=2 




630 DATA 


'2 DROITES NE SE RENCONTRANT JAMAIS SONT 


DES" 




640 DATA 


'PARALLELES" 


650 DATA 


"LES NOMBRES 1 2 3 SONT DES" 


660 DATA 


'ENTIERS" 


670 REM - 


NOMBRE N8 QUESTIONS SCIENCES 


630 DATA 




690 NB=3 




'LA FORCE QUI NOUS MAINTIENT SUR LA TERRE 


EST LA" 




710 DATA 


'GRAVITE" 


720 DATA 




730 DATA 


'TROIS" 


740 DATA 


'NOTRE GALAXIE S'APPELLE LA" 


750 DATA 


"VOIE LACTEE" 






770 DATA 




7 SB N9=3 




790 DATA 


"UN KOALA MANGE LES POUSSES D'UN" 


800 DATA 




810 DATA 


"LA PASTEURISATION CHAUFFE LE LAIT RAPIDE 


MENT VERE 


DEGRES" 


820 DATA 


"80" 


830 DATA 


"LA STERILISATION CHAUFFE LE LAIT VERS .. 


. DEGRES 




840 DATA 


"U0" 



B50 


GOTO 1620 


B6B 


REM »***********»»» MENU s***»*»»»»»**»»*»* 


B70 


;LS ^^^^^^ 


B80 PRINT"F(EMMININ" 


890 


1 RINT"P<LURIEL" |W ■ H -^B 


900 PRINT"C<DNJU8AIS0N" 


910 


-RINT"H(ISTOIRE" 


920 PRINT"G<£DGRAPHIE" 


930 


•RINT" I (INFORMATIQUE" MH HB 


940 


3 RINT"M («THEMATIQUES" 


950 


iRINT-SICIENCES" 


960 


"■RINT"D(IVERS" 


970 PRINT: INPUT " VOTRE CHOIX " ; CH* 


980 


3ETURN 


990 REM *****. ■*<#*.****** PROCEDURES <SOUS-PROGRAM 


MES} 






RESTOREiCLSiRÊAD Ql*iPRINT Ql* 


1010 


AL=INT IRND<1)*N1+1! :AL"2*AL-1 


1020 


FOR 1=1 TO ALiREAD Q1*:NEXT IîREAD Cl* 


1030 


PRINT Ql* 


1040 


INPUT R1*:IF R1JOC1* THEN 1030 


1030 


RETURN 


1060 


RESTORE tCLS 


1070 


FOR 1=1 TO 2*Nl+2ïREAD Q2*:NEXT liPRINT C2* 


1080 


AL=INT (RND(l) *N2*1> i AL=2»AL-1 




FOR 1=1 TO ALiREAD Q2*lNEXT I:READ C2* 


1100 


PRINT 02* 




INPUT R2*i IF R2* <> C2* THEN 1100 


1120 






RESTORE: CLS 


1140 


FOR 1=1 TO 2*(N1+N2)+3:READ Q3*:NEXT II PRINT 


03* 




1150 


AL= 1NT(RND(1 1 *N3+1 > : AL=2»AL-1 


1160 


FOR 1=1 TO ALîREAD Q3*iNEXT I:READ C3* 


1170 


PRINT 03* 


1180 


INPUT R3*:1F R3*< >C3* THEN 1170 


1190 




1200 


RESTORE: CLS 


1210 


FOR 1=1 TO 2*(NH-N2+N3>+4iREAD 04*iNEXT IiPRI 


1220 


AL= INT<RND(1)»N4*1) iAL=2*AL.-l 


1230 


FOR 1=1 TO ALîREAD 04*:NEXT IiREAD C4* 


1240 


PRINT Q4* 


1250 


INPUT R4*i IF R4*OC4* THEN 1240 


1260 


RETURN 


1270 


RESTORE: CLS 


12B0 


FOR 1 = 1 TO 2*(Nl+N2+N3+N4)-t-5iREAD Q5*iNEXT II 


FRINT 05* 


1298 


AL= INT<RND(1)*N5-H) :AL=2*AL~i 


1300 


FOR 1 = 1 TO AL:READ Q5*iNEXT I : READ C5* 




FRINT 05* 


J320 


INPUT R5*: IF R5*< >C5* THEN 1310 




RETURN 


1340 


RESTOREiCLS 


1350 


FOR 1=1 TO 2*(N1+N2+N3+N4+N5>+6:READ G6*:NEXT 




INT Q6* 


1360 


AL= INT£RND(1)*N6+1) i AL=2*AL-1 


1370 


FOR 1 = 1 TO AL:READ Q6*:NEXT I : READ C6* 


1380 


PRINT 06* 


1390 


INPUT R6*:IF R6*< >C6* THEN 13B0 




RETURN 


1410 


RESTORE: CLS 


1420 


FOR 1 = 1 TO 2*<NH-N2+N3+N4+N5+N6><-7iREAD Q7*:N 


EXT 


: PRINT Q7* 


1430 


AL= INTIRND(1)*N.7+1) :AL=2*AL-1 


1440 


FOR 1 = 1 TO ALiREAD Q7*iNEXT I : READ C7* 


1450 


PRINT 07* 


1460 


INPUT R7*: IF R7*< >C7S THEN 1450 


1470 


RETURN 


1480 


RES TORE: CLS 


1490 


FOR 1 = 1 TO 2*(Nl*-N2*N3(-N4+N5-HN6+N7>+BiREAD Q8 


*:NE 


T liPRINT QB* 


1500 


AL= INT(RND(1)*N8+1) :AL=2*AL-1 


1510 


FOR 1 = 1 TO ALiREAD QBIiNEXT I s READ 08* 


1520 


PRINT QB* 


1530 


INPUT R8*lIF RS*OCa* THEN 1520 


1540 


RETURN 


1550 


RESTOREiCLS 


1560 


FOR 1=1 TO 2*!Nl+N2+N3+N4+N5+N6+N7+N8)+9iREAD 


Q9* 


NEXT IsPRINT Q9* 


1570 


AL= INT(RND(1)*N9+1) :AL=2*AL-1 


1580 


FOR 1 = 1 TO ALiREAD 09*: NEXT I : READ C9* 


1590 


PRINT 09* 
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1600 


INPUT R9S: 


IF R9*OC9* THEN 1590 








RETURN 










1620 


REM *»***« 


****»»*** PROGRAMME PRINCIFAL 
















1630 


GOSUB S60 










1640 


IF CH*= ,, F 1 


THEN GOSUB 


B00!F1=P1+1 


GOTO 


730 


1630 




THEN GOSUB 


nt0:P2^P2+l 


GOTO 


730 


1660 


IF CH*= , 'C 


THEN GOSUB 


130:P3=P3+1 


GOTO 


730 




IF CH*="H' 


THEN GOSUB 


200:P4=P4*1 


GOTO 


730 




IF CH*="6' 


THEN GOSUB 


270:P5=P5-H 


GOTO 


730 


1670 


IF CH*="I' 


THEN GOSUB 


340:Pà=P6+l 


GOTO 


730 






THEN GOSUB 


410:P7=P7+1 


GOTO 


730 


1710 


IF CHW-^S' 


THEN G05U8 


4G0:PS=P3+1 


GOTO 


730 


1720 


IF CH*= ,, D 1 


THEN GOSUB 


550:P'?=P?-H 


GOTO 




1730 


PO=PO+ 1 











740 IF PO<10 THEN lf 

730 CLS 

BRAVO SUF 
FEMININ—! 
PLURIEL — : 
CONJUG. — : 
HISTOIRE-: 
GEDGRAP.-: 
INFORMA.-: 
MATH : 

sciences-: 
II VERS — : 



10 ouest: 

" BONNES 

" BONNES 

11 BONNES 
" BONNES 
" BONNES 
■ BONNES 
" BONNES 
" BONNES 
" BONNES 



REPONSES 
REPONSES' 
REPONSES 
REPONSES 
REPONSES' 
REPONSES 
REPONSES' 
REPONSES' 
REPONSES' 



AUCETROY 



Votre tronçonneuse est prête ? Alors, nous pouvons y aller ! 




Une fois vue la présentation du jeu, vous entrez 
le n° de l'arbre que vous désirez scier. Trois cas 
peuvent alors se produire : 

• soit Roy est sur l'arbre scié, auquel cas la partie 
est terminée ; 

• soit Roy est sur un arbre adjacent à celui que vous 
venez de scier ; dans ce cas, Roy vous dit sur quel 
arbre il était et il se déplace (cette fois sans rien dire !) 
sur un arbre adjacent à celui qu'il occupait. 
Exemple : 








AA 


pp 


AA 


00 


AA 


EE 


AA 


00 


XX 


AA 


AA 


00 


00 


00 


a 



où XX est l'arbre scié, 00 un arbre adjacent à celui 
scié, EE l'arbre où se trouvait Roy, AA l'arbre où Roy 
peut aller et PP celui qu'il a choisi. Bien entendu, Roy 
ne peut aller sur un arbre déjà scié par Alec, c'est-à- 
dire vous. Par conséquent, il peut se produire que 
Roy ne puisse plus bouger, ce qu'il ne manque pas 
de vous signaler ; 

• soit Roy n'est ni sur l'arbre scié ni aux alentours. 
Dans les deux derniers cas, on vous redemande un 
n° d'arbre à scier, dans la limite des possibilités de 
votre tronçonneuse. Si vous ne pouvez plus scier 
d'arbres et que vous n'avez toujours pas découvert 
Roy, vous avez perdu- 
Alain Goubert ■ 

SPÉCIAL JTWflffiUfflFS 

tVI77HSDÉttM8R£ 1SS5 



ALEC ET ROY 



10 REM 

20 REM ALEC ET ROY 

30 REM PAR ALAIN GOUBERT 

40 REM 

50 REM Affichage en 40 colonnes 
60 WIDTH 40 

70 REM 

90 REM PRESENTATION DU JEU 

90 REM 

100 CLS:RANDOMIZE 

110 PR1NT "JEU! LE FOU ET LA TRONÇONNEUSE" 

120 PRINTlPRINT 

130 PRINT "UN FOU NOMME ROY S'EST ECHAPPE DE SON H 

SILE ET VOUS, ALEC, DEVEZ LE RETROUVER." 

140 PRINT "LA TACHE NE SERA PAS AISEE, PUISQUE RDY 

, PAS SI FOU, S'EST REFUGIE DANS UNE FORET DE 99 A 

150 PRINT "AVEC VOTRE RESERVE D'HUILE ET D'ESSENCE 

CONTENUE DANS LE RESERVOIR DE VOTRE TRONÇONNEUSE, 

VOUS NE POUVEZ EN SCIER QUE 25 ! ! !" 
160 PRINT "MAIS POUR VOUS AIDER, ON VOUS INDIQUE A 
U DEPART SI ROY SE TROUVE A L'EST DU A L'OUEST DE 
LA LIGNE TRACEE EN //. " 
170 PRINT:PRINT "BONNE CHASSE ! ! ! ! " 

130 REM LOCATE X , Y .■ positionne le curseur ligne X 
, colonne Y 
190 LOCATE 24,liPF 

COMMENCER" ! 
200 Rt=INKEY*iIF f 

210 REM 

220 REM AFFICHAGE DU FLAN A L'ECRAN 

230 REM 

240 CUS 

2S0 FOR U= 9 TO STEP -1 

2612 J=U 

270 PRINT" >"|i IF J<10 THEN PRINT"0"; 

250 PRINT:MID*<STR*(J> ,2) ; "<"; 

290 IF J>"U+90 THEN 320 

300 J-J+10 

310 GOTO 270 

320 NEXT U 

330 FOR U-l TQ 3 

340 PRINT TAB<20>"//" 

350 NEXT U 

360 LOCATE 12,8: PRINT"DUEST" ;: LOCATE 12,-30: PRINT"£ 

ST" 

370 LOCATE 14,1 

380 REM 

390 REM INITIALISATION DES VARIABLES 

402 RËM 

410 A=25:RËM NOMBRE MAXIMUM D'ARBRES OU'ALEC PEUT 

SCIER 

420 REM FO : POSITION DE ROY 

430 A*"*" "iREM POUR EFFACER LES ARBRES SCIES DE L 

ECRAN 
440 REM NS ; ARBRE OUE ALEC VEUT SCIER 
450 DIM M1110):REM PERMET DE SAVOIR SI L ' ARBRE NUM 
ERE I EST SCIE OU NON (IL EST SCIE POUR M(IJ-F-l) 



THEN ; 




I REM - 



IITIALE D'ALEC 



510 REM AFFICHAGE DE SA F 

UEST) 

520 REM - 



^=49 THEN PRINT"ALEC EST A L'OUEST" 
540 IF P0>49 THEN PRINT"ALEC EST A L'EST" 
550 LOCATE 24, 1 : PRINT"PRESSER UNE TOUCHE POUR CONT 

INUER "j 

560 IF INKEY*="" THEN 560 

570 REM ■- 

580 REM DEBUT DU JEU ; ROUTINE : QUESTION A L'UTIL 
ISATEUR 

590 REM 

600 REM STRING*(X,A*> : génère X fois la chaîne Aï 
610 LOCATE 14,1:PR1NT STRING* (255, " " ) ; 5TRING* 1 158 



620 LOCATE 15,1 

ï! INPUT"";N* 

630 IF LEN(N*)>2 THEN 620 

640 IF LEN(N*)=1 THEN N*="0"+N# 

650 H=VAL!N*):IF M[H)=-1 THEN 620 

660 M!H)=-1 



ALEC SCIE L'ARBRE NUMERO : 




720 REM ALEC EST AUX ALENTOURS 

730 REM 

740 IF P0=H-1 OR PO=H-H OR P0=H+9 OR P0=H-9 OR P0= 
H+10 OR FQ=H-10 OR P0=H-1 1 OR P0=H+!1 THEN GOSUB 9 



760 REM ROY N'EST NI SUR I 

TOURS 

770 REM 



ARF.RF. SCIE NI AUX ALEN 



780 I 



efi-1 



790 GOSUB 1420:REM EFFACE L ■ ARBRE SCIE DE L'ECRAN 

S00 IF 0=0 THEN 1360sREM FIN DU JEU 

S10 GOSUB 1260:REM AFFICHE LE NOMBRE D'ARBRhib OUF. 

ALEC PEUT ENCORE SCIER 

S20 GOTO fa 10 

S30 REM 

S40 REM ALEC DECOUVRE ROY 

850 REM 

S60 LOCATE 20,1 

870 PRINT "HAPPY END ! < ! " 

880 PRINT:PRINT"ENFIN ALEC EUT ROY ! ! ! (ECUR 

EUIL!) " 

890 PRINT:PRINT"PRESSER UNE TOUCHE POUR CONTINUER. 

900 IF 1NKEY*="" THEN 900 
910 GOTO 1520 
920 REM - 



l'EST PAS SUR L 



i AUX ALENTOU 



'"ALEC, J'ETAIS SUR L'ARBRE NUMERO i 



990 f 



I CALCUL DE LA NOUVELLE POSITIDI 



00 PQ*=STR*(FO) 
10 GOSUB 1610 
20 IF ER=1 THEN 1220 
030 X=INTSRND<1)*4+1> 

-2 THEN X=9 
=3 THEN X=10 
=4 THEN X = ll 

:=.5 THEN SG=-1 



=PO-W 



Il IF F 

. AND 
OR AJ=-9) THEN 
i2=l AND 
THEN 10; 
i3=l AND 
OR AJ=9) THEN 1 
AND 
THEN 



. AND 



F C2" 



C4=l AND 



OR AJ=-1 
030 
AJ=1 OR AJ=10 OR AJ=11 DR AJ=9 

AJ=-1 OR AJ=10 OR AJ=11 OR AJ=-1 

i30 

AJ=-1 OR AJ=-10 OR AJ=-11 OR AJ= 

030 

AJ=1 OR AJ=11 OR AJ--9) THEN 103 

AJ=-10 OR AJ=-11 ÔR AJ=-91 THEN 

AJ=-1 OR AJ=-11 OR AJ=9) THEN 10 

AJ = 10 OR AJ=11 OR AJ=9) THEN 103 



) REM ■ 



240 RËM AFFICHE LE NOMBRE D'ARBRES GUE ALEC PEUT 
ENCORE SCIER 

250 REM 

260 LOCATE 16,1 

270 PRINT"VOUS, ALEC, VOUS POUVEZ ENCORE SCIER "j 

.; "ARBRE"; 

280 IF AOl THEN PRINT "S" 

290 IF A=l THEN PRINTt PRINT"MAIS CE SERA LE DERNI 

300 LOCATE 24, 1 : PRINT"PRESS£R UNE TOUCHE POUR CON 

INUER. . . " j 

310 IF INKEY*="" THEN 1310 



42- 







360 LOCATE 20,1 

370 PRINT"EH BIEN MALHEUREUSEMENT, VOICI ENCORE U 

I FOU OUI NE SERA RAS ENFERME !!!" 

380 GOTO 1520 



420 


FDR U=0 TO 9 


Wl» 


IF VAL(LEFT$(N$,1) >=U THEN C-2+U* 


440 


IF VAL<RIGHT*<NI,1) > =U THEN B=10- 




NEXT U 




LOCATE B,C 


470 


PRINT A* 


480 




49a 






500 


REM AUTRE PARTIE ? 






fi?0 


CLS: LOCATE 20,1 


ùiH 


PRINT 'VOULEZ-VOUS FAIRE UNE AUTRE 


ÏÏ40 


R*=INKËY*:IF R*="" THEN 1540 


RFÎ0 


IF R#<>°D" AND RtO"N" THEN 1530 


560 


IF R*-"D" THEN RUN 


570 


IF R*»-N" THEN WIDTH 80:END:REM R 


ichage 80 colonnes 


580 






590 


REM ANALYSE 







1610 IF RIGHT*(PD*,1)="9" THEN 


IF M(PO- 


)=-l AND M 


(PO+10)=-1 AND M(PO-10)=-1 AND 


M(PG-ll) 


— 1 AND M(P 


0*9)=-l THEN 1720 






1620 IF LEFT*<PO*,1>= M 0" THEN - 


F M(PQ-1 


=-1 AND M< 


PO+i!=-l AND M(F'0+1B>=-1 AND M 


P0*1U=- 


AND MIPO+ 


<?)=-! THEN 1720 






1630 IF RIGHTf (PO*,1I= ,, 0" THEN 


IF M<FO* 


)=-l AND M 


<F'0+1B)=-1 AND M(PO-10)=-1 AND 


MCPO+11) 


■-1 AND M<P 


0-9) =-i THEN 1720 






1640 IF LEFT* (P0*,l)="9" THEN 


F M<PO-fl 


=-1 AND M( 


Pû-1>=-1 AND M(PO-10>=-1 AND M 


PO- I 1 ) =- 


AND M(PO- 


9>=-l THEN 1720 






1650 IF PD*= I, BH" THEN IF M<PO+ 


)=-l AND 


M<PD+10)=- 


1 AND M<P0+11)=-1 THEN 1720 






1660 IF PO*=' , 09 ,, THEN IF M<PQ- 


1 — 1 AND 


M(FO+10) — 


1 AND M(P0+9)=-l THEN 1/20 






1670 IF P0*="99" THEN IF MIPO- 


>=-! AND 


M1PO-10>=- 


1 AND M<P0-11)=-1 THEN 1720 






1680 IF POÎ="90" THEN IF MIPO + 


)=-l AND 


M<PO-10>=- 


1 AND M(P0-9)=-l THEN 1720 






1690 IF PDX1B THEN 1710 






1700 IF M(PO+i)=-l AND M(PO-l) 


=-1 AND f 


PO-»-10)=-l 


AND M(PO--10)=-1 AND M<P0+11)=- 


AND M(P 


i-9) =-1 AND 


M(P0+9>=-l THEN 1720 






1710 RETURN 






1720 LOGATE 20,1: PRINT"ALEC, 


E NE PEU 


■ PLUS B0U6 


ER !!!":LOCATE 24 , 1 : PRÏNT"PRESSER UNE T 


DUCHE POUR 


CONTINUER.. . "; 






1730 IF INKEYÏO"" THEN 1730 






1740 LOCATE 14,1:PRINT STRJNG* 


255," "> 


STRrNG*U5 


1750 RETURN 




■ 




CASSE-TÊTE 



[7 I e but du jeu consis- 
^ Lte à remettre les 
vingt-quatre lettres du 
tj plateau de jeu (5*5 
cases} dans l'ordre 
alphabétique par glisse- 
ment. A, en haut à gau- 
che et X, sur la 
ne du bas à 
'droite. Le doigt 
du joueur est re- 
présenté par un tiret clignotant 
que l'on peut déplacer vers la 
droite ou la gauche {commande 
W pour < et N pour > ), le dépla- 
cement étant commandé par la 
touche < ESPACE >. 
Une fois sur la lettre, la direction 
de déplacement est choisie par 
H(aut), B(as), Dfroit) et G(auche). 
En espérant qu'il vous reste 
encore des cheveux après une 
partie.. 



Jean-Luc Delportel 



10 REM ***.***«******»»** 




20 REM * CASSE TETE 




30 REM * J.L DELPORTE * 


40 REM *-**#»»..*.«****».»* 




50 GOSUB 1010 




60 REM * MELANGE * 




70 CLSiFRINT "Appuyé/ sur 


une 








80 


^INT(RND<1>*5>: Y=INT<RND(i 


90 


1 = INT1RNDU)*5):Y1 = INT(RND 




IF X=K1 AND V=Y1 THEN 


90 


110 


AS=B*(X,Y>:B*(X,Y)=B* 




120 


REM » TEST DES TOUCHE 




130 


ZZ#=INKEY$: IF ZZ*="" 


HEN i 


140 


REM 




150 


REM * DEPART * 




160 


CLS 




17e 






180 


CO=0:XC=0:YC=0 




190 


GOSUB 970: GOSUB 930 




200 


D*=" >":GOTO 320 




?10 


REM * ENTREE * 




•jeu» 


REM LOCATE X,Y :po&it 










230 


D$=INh;EY*: IF D*="" TH 




240 


IF D*-=" " THEN 340 




Sflffl 


IF D*="H" THEN 440 




260 


IF D*="B" THEN 530 




270 


IF D#="D" THEN 640 




2B0 


IF D*="G" THEN 750 




790 


IF D*="N" THEN D*»">" 


GOTO 


300 




SOTD 




43- 
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320 SEN5#=D$:L0CATE 8,14:PRINT D* 

13 GOSUB 930! GOTO 230 
340 REM * DEP CURSEUR * 
350 BOSUB 930 

3 IF BENS*»^" THEN 400 

3 YC=YC+i:lF VC<5 THEN 430 

3 YC=0: XC=XC+1:IF XC<5 THEN 430 
390 XC=0iGOTO 430 
400 YC=VC-I:IF VO-1 THEN 430 

3 YC=4:XC=XC-1: IF XO-I THEN 430 

a XC=4 
430 GOSUB 930:GOTO 210 

fl REM « DEP HAUT - 

] IF XO=0 THEN 210 

1 FDR K=XC-1 TO STEP -1 

a IF B*(K,YC>=" ■ THEN 490 
4S0 NEXT KiGOTO 210 

490 FDR J=K TO XC-1 i B* ( J , YC) =B* ( J* 1 , 
500 B*<XC,YC>=" " 
510 GOSUB 970:GOSUB 930 
520 GOTD 850 
530 REM * DEP BAS * 

3 IF X£=4 THEN 210 
550 FOR K=XC+1 TO 4 

5 IF BS(K,YC>=" " THEN 580 
570 NEXT K:GCTO 210 

3 FOR J«K-1 TO XC STEP -1 

J B*<J+1,YC)=B*(J,YC> 
600 NEXT J 
610 B*(XC,YC>=" " 
620 GOSUB 9701GOSUB 930 

) GOTO 850 
640 REM * DEP DROITE * 
650 IF YC=4 THEN 210 

3 FOR K=YC+1 TO 4 

S IF B*<XC,K>=" " THEN 690 

3 NEXT K:SOTD 210 

] FOR J=K-1 TO YC STEP -1 

3 B*<XC,J+1)=B*<XC,J) 

3 NEXT J 
720 B*(XC,YC)=" - 
730 GOSUB 970: GOSUB 930 
740 GOTO 950 
750 REM * DEP GAUCHE * 

] IF YC=0 THEN 218 
770 FOR K-YC-1 TO STEP -1 

J IF B*(XC,K)=" " THEN 800 
790 NEXT KsGOTD 210 

! FOR J-K TO YC-l 

I B*<XC,J)-B*CXC,J+1) 
920 NEXT J 
830 B*(XC,YC)=" " 
840 GOSUB 970iGOSUB 930 
850 REM * VERIFICATION * 

3 FOR 1=0 TO 4iFOR J=0 TO 4 

1 IF B#<I,J)Ofl*(I,J) THEN CO=CO+l: 
S8B NEXT J:NEXT I 
390 CLS:LOCATE 12, 1 :PRINT"Vous èteE p 




ultat 



'S CD;' 



900 INPL)T M Dési 



DS^'O" THEN 60 



iuer Û/N ' 



920 END 

930 REM # SSPG 

940 REM LGCATE 



: idem LOCATE : 
ant du curseur 
XC*2+10,YC»2+10,1 



âge cligne 
950 LOCATE 
960 RETURN 
970 REM * SSPG DEPLACEMENT * 

) FOR 1=0 TO 4: FOR J= TO 4 
990 LOCATE 1*2+10, J*2+10, 1 SPRINT B*(I,J) 
D00 NEXT JsNEXT ItRETURN 
110 REM * INITIALISATION * 
320 DIM A*<5,5) ,B*(5,5) 
1030 DATA A,6,C,D,E,F,G,H,I,J,K,L,M,N,0,F,S,R,S,T, 
U,V,N,X t " " 

I TD 4:F0R J=0 TO 4 
:i,JÏ : A*<I,J)=B*(I,J> 
1060 NEXT J:NEXT I 
1070 RETURN 

ÏINT "(Hlatit <B)S5 (D)roite (G)auche" 
1090 pr: 

1100 PRINT:PR 



INT ' 



pus du déplacement di 
(SPACE) Déplacement" 



La grille de jeu représente le 
plan de la ville où vous allez 
sévir,.. 

Les destinations sont signifiées 
par des lettres. Deux lettres repré- 
sentant une case : H pour hôtel, 
P pour palace, G pour gare et A 
pour aéroport. 

Vos gains sont fonction du nom- 
bre de passagers déposés et de 
leur destination, à raison de 500 F 
par passager à la gare, 1 000 F à 
l'aéroport, 1 500 F à l'hôtel et 
2 000 F au palace. Les cases où 
vous prenez des passagers sont 
choisies aléatoirement, en tenant 
compte du fait que vous ne pou- 
vez prendre plus de quatre passa- 
gers pour une seule direction : 
votre taxi doit être vide pour pou- 
voir prendre des passagers. 
En outre, il y a des cases de péna- 
lité ou de bonus, et des cases car- 
refour où il ne se passe rien. 
Le tableau de bord résume votre 
situation monétaire, en cases de 
déplacements possibles, et les 
passagers éventuels à déposer. Le 
joueur 1 est symbolisé par un * 
et le joueur 2 par un +, les dépla- 
cements s'effectuant par les tou- 
ches G(auche), D(roite), H(haut) et 
B(as>. 

Bien évidemment, le joueur qui n'a 
plus d'argent perd... et celui qui 
atteint son contrat gagne ! 

Alain Goubert ■ 
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HEP TAXI ! 



Com me vous vous eu doutez , 
vous allez devoir a p prendre 
le dur métier de taxi : 
hé oui, 
vous êtes deux sur l'affaire et la eoueurreuee est rude ! 




, J12) 

30 DIM CO*(34 

40 FOR 1=1 TO 
)-"P" AND AGI 
50 NEXT I 
60 XU)-7:X(2 




,AG(34) ,PA*<34> ,DI*<34> 

34 : READ CD* ( I ) , AG 1 1) , PA* l 1 

>=0 THEN READ DI*(I) 

=o!Y<l)=5: Y<2Ï=5:B<1>=1000 


70 CLS 

90 PRINT TAEM 


1) ;"HEP TAXI" 



! REM LOCATE X,Y I 

OlQI 



le 



AE(2> ,î(2> 



;eur 1 i n 



100 REM STRINGStX,A*) : génère X -Fois la chafne A* 
110 LOCATE 4,6:PRINT STRING* (20 ,"-">: LDCATE 5,6:PR 
ÏNT STRING*C20,"-") 

120 LOCATE B,6tPRINT STRING* (20, "-" I : LDCATE 9,6:PR 
INT STRINS*120,"-"> :LOCATE 12,6:PRINT STRING* (20, " 
-'MiLOCATE 13,6:PRINT STRING* (20 , "-" ) 
130 LOCATE 6,6:PRINT STRING* <2, "-"> :LOCATE 6,14;PR 
iLOCATE 6,24;PRINT STRING* (2, "-" 

DCATE 7,14:PR 



150 LOCATE ; 



170 

1B0 LOCATE E 

DCATE 8,1&(F 

190 LOCATE 1 

AAA" 

200 LOCATE 1 



:LDCATE 10,24:1 



:NT "PP";: LOCATE 12,20:F 
:PRINT"*":LOCATE Y<2),) 



:PRI 



génère N espaces 

PRINT SPC140); 

230 IF J-l THEN J=2:L0CATE 20,1:PRINT "LE JOUEUR 2 

JOUE. . . ":GDTD 250 
240 J=1:LDCATE 20 , 1 :PRINT"LE JOUEUR I JOUE..." 
250 DE=INTIRND!1)*6>*1 
260 IF J=l THEN D2=0:D1=DE 
270 IF J=2 THEN D2=DE:D1=0 
2B0 GOSUB 1000 
290 FOR K=l ÏO DE 
300 ) 



= INKEV*:IF F 



310 LOCATE 19, 1: PRINT"DIRECTION ' 

*="" THEN 310 

320 R=ASC<R*> 

330 IF R<>72 AND ROiB AND R071 AND R<>66 THEN : 



340 IF R=71 THEN > 

350 IF X<6 THEN X= 

360 IF R=6B THEN > 

370 IF X>25 THEN > 



:+2:GOTO 300 
>X+2 
:X-2:GOT0 300 



3S0 


F R=66 THEN Y=Y+2 


390 


F Y>13 THEN Y=Y-2:G0T0 300 


400 


F R=72 THEN Y-Y-2 






-4 THEN Y=Y+2:GOTO 300 


420 




Y=ll OR Y=7) AND (X=B OR X-9 OR X=10 OR X= 






12 OR X=13 OR X = 16 OR X=17 OR X-18 OR X=19 


OR 


=20 OR X=21 OR X=22 OR X=23) THEN 300 


430 LOCATE YU) ,X!J)!PRINT" " 


440 


(J 




450 LOCATE Y(J),XlJ)lIF J=l THEN PRINT"*" 


460 


F J=2 THEN PRINT"+" 




EM 




480 NEXT K 


490 


F 


X(J)=6 DR X(J>=7> AND Y(J)=5 THEN CA=1 


500 




X(J)=8 OR X(J>=9) AND Y(J)=5 THEN CA=2 


510 




X(J)=10 OR X(J)=11) AND Y(J)=5 THEN CA=3 


520 




X(JI=i2 OR X(J)=131 AND Y(JJ=5 THEN CA=4 


530 


F 


X<J>=14 OR X(J)=15> AND Y(J)=5 THEN CA=5 




F 


X(J)=16 OR X(J)=17) AND Y(J)=5 THEN CA=6 


550 


F 


X<J)=22 OR X(J)=23 OR X(J>=20 OR X<J>=21) 


AND 




=5 THEN CA=B 




F 


X(J>=24 OR X(J)=25> AND Y!J)=5 THEN CA=9 


570 




X<J)=6 OR X(J)=7> AND Y(J)=7 THEN CA=24 


580 




X(J)=14 OR X(J)=15> AND Y(J>=7 THEN CA=29 


590 




X<J)=24 OR X<J>=25) AND Y<J)=7 THEN CA=10 


600 




X<J>=6 DR X<J>=7> AND Y(J)=9 THEN CA'23 


610 




X<J>=8 OR X(J)=9) AND Y(J)=9 THEN CA=25 


620 


F 


X<J)=10 OR X(J)=11> AND YIJ>=9 THEN CA=26 




F 


X(J)=12 OR X<J)=13! AND Y<J)=9 THEN CA=27 


640 


F 


X(J)=14 OR X(J)=15! AND Y(J)=9 THEN CA=2B 


6510 




X(J>=20 OR X(J>=21) AND Y<0>=9 THEN CA=33 






X<J)=22 OR X<J)=23> AND Y(J)-9 THEN CA=34 






X<J>=24 OR X(J)=25) AND Y<J>=9 THEN CA=1 1 


680 




X(J>=6 DR X(JJ=7) AND Y<J)=11 THEN CA=22 


690 


F 


X<J)=14 OR X(J)=15) AND Y<J)=11 THEN CA=30 


700 


F 


X(J)=24 OR X(J)^25> AND Y(J)=11 THEN CA=12 


710 


F 


X(J>=8 OR X(J)=9) AND Y(J!=13 THEN CA=20 


720 




X<J>=10 OR X(JI=11) AND Y(J>=13" THEN CA=19 


730 


F 


X(J)=12 OR X(JS=13> AND Y<J)=13 THEN CA=18 


740 


F 


X(J>=14 DR X(J)=15> AND Y(J)=13 THEN CA=17 


750 




X(J>=16 OR X<J)=17) AND Y<J)=13 THEN CA=16 


760 


F 


X<J)=6 OR X(J)=7) AND Y(J)=13 THEN CA=21 


770 




X(J)=1B OR X<J)=191 AND Y(J)«13 THEN CA=15 


7B0 




X<J)=20 OR X(J)=21) AND YU>»13 THEN CA=14 


790 




X<J)=22 OR X(J)=23) AND Y(J)=13 THEN CA=14 


B00 


F 


X<J>=24 OR X(J1=25> AND Y(J)=13 THEN CA=13 


B10 




X(J)=18 OR X(J)=19> AND Y(J)=5 THEN CA=7 


320 


F 


X(J)=16 OR X(J)=17) AND Y(J!=9 THEN CA=31 


030 


F 


XIJ)=18 OR X<J)=19) AND Y(J)=9 THEN CA=32 


840 




TE 21, Il PRINT CO*(CA>; 






A*(CA) = "N" THEN B (J )=B (J ) *AG ICA) : GOTO 950 


860 
>-0 
870 
J)=0 
860 
J)=0 
890 


F ' 


G<CA)=500 THEN B (J)=B ( J ) +AG (CA) *GA (J) îGAIJ 


F / 


GiCA) = 1000 THEN B<J)-B(J>+AG(CA>*AEU)iAEl 


F 


GtCA) = 1500 THEN B< J)=B ( J) +AG ICA) *HO ( J ) : HO ( 


F 


G(CA)=2000 THEN B( J>=B(J)*AG(CA)*PA( J) : FA ( 
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J>=0 

900 F=INT(RND-(1)«4> + 1 
910 IF AG<CA)=0 AND DI$(CA)="GA' 
*H01J)+PA(J)<=4 THEN GA(J>=P+GA 
720 IF AGICAI-0 AND DI*1CA) = "AE' 
+H0tJ)+PA(J)<=4 THEN AE(J)=P+AE 
930 IF AGCCAJ-0 AND DI & (CA) = "H0' 
J<J>fPA(JK-4 THEN HO(J)=P+HQ 
3 IF AG1CA>=0 AND DI*ICA>-' , FA' 
3<J)-i-PAlJ><=4 THEN PA(J>=P+HO 
950 LÛCATE 25,1 SPRINT 



POUR CDNT 
LSE IF ASC 
9fc0 LOCATE 



RDU. . . "îGOTO 1490 



LOCATE 24, It PRINT 
NUER.. . " ;:R*=INKEY$: IF 
3 THEN 950 
RINT SPCI78I ; 

CLS:PRINT "LE JOUEUR 




I CLS:PRINT"LE JOUEUR ' 



1000 FOR K-l TÛ là:LOCATE K,27:PRINT" 
"; :NEXT K 

1810 LÛCATE 2,27:PRINT" Jl* ! +J2" 
1020 LOCATE 4,27:PRINT"DEPLA ! DEPLA" 

! LOCATE 5,27:FRINT " "sDl:" ! " ; D2 

1040 LOCATE 6, 27: PRINT "SOMME ! SOMME" 

J LOCATE 7,27sPRINT B ( 1 ))■ LOCATE 7 , 33: PRINT" ' ' 
:LQCATE 7,34sPRINT B<2! 

160 LOCATE B,27:PRINT"6ARE ! GARE" 

170 LÛCATE 9,29iPRINT GA < 1 >:: LOCATE 9,33:PRINT" 

LOCATE 9,36: PRINT QS(2) 

—) LOCATE 10,27îPRINT"AERO. " AERO." 



190 LGCATE 1. 
i : LOCATE 1 1 
00 LOCATE l: 
10 LOCATE 1 
; : LÛCATE 13 
120 LOCATE .1 
1130 LOCATE 1! 
"i sLOCATE 15, 3< 



36tf 



,:±:r!-:l\ 



AE(1I 



iINT AE<2 



: LOCATE : 



,33:PRir 



NT"HOTEL ! HOTEL" 
29: PRINT HOil);:LOCATE ; 
*t PRINT HD<2> 
27:I-RINT"PALA. ! PALA. " 
29: PRINT Pfl(l) j iLUCATE 1 
>:PR1NT PA(2I 



1140 RETURN 

S DATA VOUS TOUCHEZ 200 FF DE BONUS, 200, N 

) DATA VOYAGEURS. DIRECTION GARE,0,P,GA 

] DATA ARRET HOTEL. LES VOYAGEURS DESCENDENT , 15 

I DATA GARAGE. VOUS FAITES LE PLEIN D'ESSENCE., 

!,N 

I DATA CASE CARREFOUR. .. ATTENDEZ FATIEMMENT. ,0, 



*TA HOPITAL 
1220 DATA ARRET GARE. LES VOYAGEURS 



123i3 L'ATA GARAGE. REVISION DE LA VOITURE, -300 ,N 
J24i:- DATA VOYAGEURS. DIRECTION HOTEL, 0,P, HO 

.250 DATA CASC CARREFOUR ...ATTENDEZ VOTRE TOUR.. 



" POUR LA PAROISSE,- 



1.26W L'AI ri bELISE. DONNEZ 



1 DATA LA SOCIETE DES TAXIS VOUS DEMANDE 101 



1 DATA LES POMPIERS VOUS DEMANDENT 
S DATA PALACE. TOUCHEZ 2000 FF PAR 



3 DATA PEASE. 
1350 DATA 
1360 DATA POLICE. 



VOUS DEVEZ 200 FF., -200,1 
RECTION AEROPORT. ,1 
300 FF POUR LA PR; 



i ARRET PALACE 



370 DATA CARREFOUR. TOURNEZ VOUS LES POUCES, 6 



RECTION GARE. ,0,P,GA 



DESCENDENT. 



I DATA CARREFDijR. 



"IONNEMENT INTERDI" 



1470 DATA VOUS ACHETEZ 

500, N 

1490 DATA VOYAGEURS. 



1510 IF 
1520 END 
1530 CLS 
1540 PR 
1550 pr: 
DEPART 



AU DE F 

SOIT 

1590 pr: 

ETTE SOMME ES" 

RETE. " 

1600 PR 

L FAUT 

ECRAN , 

FFET DE SUR 

1610 LOCATE 



USIONS CHEZ LEON. ,- 



PRINT:PRINT"L 
F R*<>»M' 
R#»"0" THEN RUN 

iiPRIl 



DIRECTION GARE. 



1 UN TAXI ET EST t 



HEP TAXI ' 
POUR 2 JOUEURS... M 
NT"CHAQUE JOUEL 
(UNE SOMME DE 1 
! PRINT "LE EUT DU JEU EST DE CONDUIRE LE MAXIM 
UM DE PASSAGERS A LA GARE, A L'AEROPORT, A L'HOTEL 
OU AU PALACE." 

:NT "CHAQUE COURSE EST REMUNEREE MAIS IL VC 
US FAUDRA PARFOIS PAYER DES TAXES POUR LA POLICE, 
LES POMPIERS. . .ETC. 

LES JOUEURS SE METTENT D'ACCORD 
ART SUR UNE SOMME A ATTEINDRE : SOIT 5000. 
50000, SOIT 100000. " 
LE PREMIER DES JOUEURS OUI A ATTEINT 
DECLARE VAINQUEUR ET LA PARTIE S'f 



N: :-h 



DEPOSER LES VOYAGEURS SONT INDIQUEES SUR 1 



ES AU" 



> POUR CONTINUER. 
ELSE IF ASC(R*)< 
1620 CLSîPRINl 



1680 R*=INKEY* 



■■Rr.MAKLIUL : 



SEULES LES CASES OU I 



RES NE LE SONT PAS POUR RESERVER I 



ATE 24, 1 sPRINT ' 

")iR*=INKEY*i IF R*="" THEN 1610 
:M3 THEN 1610 

CHOISISSEZ LA SOMME A ATTEINDRE:" 
5000 FF" 



2- 10000 FF" 
'3- 50000 FF" 
4- 100000 FF" 
'VOTRE CHOIX : 1 
R*<>"1" AND R*<! 



I SO= 10000 



■2" AND R*<! 



1740 RETURN 
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A VOS LETTRES? 

PRÊT? 

CHIFFREZ' 




Vous avez des problèmes pour rédiger vos chenues ? En attendant l'arrivée 
de la carte à mémoire, le pro gramme Nnmal est fa it pour vous. 



A partir d'une valeur numérique 
de huit chiffres au plus, soit 
de 1 à 99999999, Numal vous 
renvoie une chaîne de caractères 
représentant cette valeur en tou- 
tes lettres ; deux décimales vous 
sont accordées, éventuellement. 
Michel Gautier ■ 




UNE INPUT : saisie d'une 
chaîne pouvant comporter des 
signes de ponctuation. 
Peut être remplacée par 
INPUT. 



10 REM numal versir 

20 REM Programme compi 
30 REM M. GAUTIER 
40 DIM A*<20) ,B*tl2> 



!:READ B*<I> : NEX" 



LINE INPUT' 



Z=10 




200 IF L3=6 AND (V2=7 OR V2=9)THEN X=l: 


Z=10 


210 IF V3=l OR !L3=2 AND V2-1 AND IV1>1 


AND Vl<3>) 


THEN Z#="et " 




220 ON L3 GOSUB 270, 290, 330, 370, 410, 45G 


,518,530 


230 CH#=CH*+C* 




240 NEXT I 




250 PRINT CHS;; IF DN*="" THEN PRINT ELSE PRINT DN* 


260 90TO 100 




270 REM 




2S0 C*-A#(V1) iRETURN 




270 REM 




300 IF Vl<2 THEN CS=AK10+V2> 




310 IF V1>1 THEN C*=B* <V1-X1 +ZS+A*<V2+Z 




320 I=I*1:RETURN 




330 REM 




340 IF Vl<2 THEN C*=6*(10> 




350 IF V1>1 THEN C*=AS (VI > -t-B*< 10) 




360 RETURN 




370 REM 




3B0 IF VK2 THEN C*=B* < 1 1 > 




390 IF V1>1 THEN C*=A* ( VI > +B*< 1 1 > 




400 RETURN 




410 REM 




420 IF VK2 THEN C*=A* ( 10+V2) +B* 1 1 1 ) 




430 IF V1>1 THEN C*=6ï f Vl-X ) +A* (V2+Z) *I 




440 I=I+1:RETURN 




450 REM 




460 IF VK2 AND V2<2 THEN C*=B* 1 10) +AS ( 
470 IF Vl<2 AND V2M THEN C*=B* t 10) +B# t 


J2*10+V3>+B 


V2-X>+Z*+A# 


!V3+Z)+B*(11) 




4B0 IF V1>1 AND V2<2 THEN C*=A* tVi ) +B*< 


[0)+A#(V2*l 


0+V3)*BS(ll) 




490- IF V1>1 AND V2>1 THEN C*=AS tVl ) +B*' 


[0)+BÏ(V2-X 


)+Z*+Aï(V3+Z)-t-B*(ll) 




500 I=I+2:RETURN 




510 REM 




520 CÏ=A*W1)+B* 112): RETURN 




530 REM 




540 IF Vl<2 THEN C*=A* ( 10+V2) +E* Q2> 




550 IF V1>1 THEN CS=B* (Vl-X J+Zt-t-AS IV2+Z 


)+Bf (12) 


560 I=I+1:RETURN 




570 REM Datas 




5B0 DATA"", "un "/'deux ", "trois " , "auat 










/■treize ", 






600 DATA"5eize "/'dix sept "/'dix huit 


■/'dix neuf 


610 DATA"", "dix "."Vingt "/'trente ■' , "q 


uarante " , " 






620 DATA"saixante-dix " , "quatre-vintjt ' 


, quatre-vi 


630 DATA"cent "/'mille "/'million " 


■ 
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U NOMBRE D'OR ÉTAIT 
DANS LA BOÎTE 
D'ALLUMETTES 

L'informatique a remis à la mode l'astucieuse variante des jeux de Mm ou de 

Marienbad conçus au début de ce siècle par M. UYTHOFF : on part de deux petits tas 

d'allumettes, et chacun des deux joueurs retire à son gré soit un nombre quelconque 

d'allumettes de l'un des tas, soit un même nombre de chacun des tas. Qui enlève 

la dernière allumette a gagné. 



Que vient faire dans cette galère le Nombre d'Or, 
0+é5)/2, soit 1.618034..., clef du 
pentagramme et des cathédrales gothiques ? C'est 
ce que vous découvrirez en décortiquant le pro- 
gramme proposé, qui s'en sert pour calculer direc- 
tement le meilleur coup à partir des for- 
mules établies par M. WYTHOFF lui- 
même. Tout calcul ou stockage 
préliminaire a disparu, le pro- 
gramme est ultrarapide et, bien 
sûr, toujours aussi difficile à 
battra Signalons que le Nom- 
bre d'Or apparaît sous la forme 
.618034, qui est son inverse 
Pour la suite, vous savez ce qui 
vous reste à faire... 





NOMBRES 
DE BERNOUILI 







Les nombres de Bernouili se 
rencontrent dans les coeffi- 
cients de nombreux développe- 
ments en série Par exemple, on a : 
tgx - x + 1/3 x A 3+2/15 x A 5 
+ 17/315 x A 7+... 
= 2 A 2<2 A 2-1)/2!B1x + 2 A 4(2 A 
4-1)/4!B2x A 3+2 A 6(2 A 6-1)/6! 
B3x A 5+... 
avec B1^1/6 

B2=1/30 

B3=1/42 

B4=V30 

Dans la pratique, les nombres de 
Bernouili se calculent par récur- 
rence, c'est-à-dire que le 20 e est 
obtenu des précédents après vingt 
calculs en cascade... 
Le programme calcule directement 
les nombres grâce à une formule 
d'approximation, de sorte que 
vous pouvez obtenir directement 
le dix millionième nombre de Ber- 
nouili, si cela vous chante, en un 
seul calcul : 

B(10000000)=1.814 E 121371117 
Les possibilités du programme 
dépendent de la précision de votre 
ordinateur, c'est-à-dire du nombre 
de chiffres significatifs avec lequel 
il calcule (variable PR à adapter). 
P.-L. Gedo ■ 
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LESMORLOCKS 
SONT DE RETOUR 




Eh oui ! Depuis H fi Wells, on n'n rien inventé de mieux comme jeu d montures : 
à vou s d e délivrer ia bette princesse.,. 



François Coulon l 
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m 



50 X3=INTlRND(l)*9>-H:Y3=:INT<Rh 
ND Y3=S THEN 50 

60 X«lsV-i 

70 FOR X2=l TO ii : FOR Y2=J TO II 
T ¥2iNEXT X2 

80 PRINT "Voulez -vous la règle t 
90 GOSUB 4970: IF NQT FL THEN 3: 
■Règle c 



F'RINT 


1R 


.,„,, 


1934. 


FRINT 








F'RINT 








FRINT 


(,:■ 


>st le 




PRINT 


et 


vous devez 



220 PRINT"trOL 



270 F 



INT"( 



:0=Ouest, E=£s( 
290 PRINT 

"ni' PRINT "Tapez (I) pour 
310 PRINT"des objets que 
~.?<B F'RINT" Ils peuvent vdi 
330 PRIN" 






tINT 



1INT TAB115) "Banne chance !" 
360 PRINT 
370 GOTO 550 
3B0 XX=X:YY=Y 
390 PRINT 

4B0 PRINT"Quelle direction choisissez— , 
410 D*=INKEV* 

420 IF D*="I" THEN PRINT DÎ:GGTO 5040 
430 IF D*<>"N" AND D*<>"S" AND D*0"E" 



4S0 


FOR 


Z=l TO LEN 


(AS 


X,Y) >■ 


460 


THEN 
NEXT 


F1=0 
11 








470 


IF F 


thei\ 


PRINT 






IF F 


THEN 


F'RIh 












YîGGTG 40 


490 








!)*= 




S00 


IF DS="S" 


rHEN 


!>*= 


'SUD": 




IF E 


:="0" 






OUEST 


520 


if a*-"E' 


THEN 


D*= 


'EST": 


330 


PRIN 
PRIN 


r d* 



















560 FOR ZZ-1 TD LËN(A*(> 
:HOSUB S440:DD*=DD#*G*+' 
570 PRINT"Directions po? 
! PRINT 

580 IF NOTIX'l AND Y»l) 
590 PRINT"Une pièce su i 
600 PRINT"c 
610 IF Cl 
620 PRIN" 



i THEN ! 



630 I 



UNT"f 



<INT"s'apprëte i 



69(9 


IF 


CO TH 




3DTO 710 


700 




NT" Il 


n s 


ta 




71B 


if 


N0T<X 



AND Y=3) THEN ; 



B50 IF NDT BI THEN PRINT"Elle saï 

Ht* semble fil" 

S60 IF NOTfX-1 AND Y=5> THEN 910 



B70 


PRINT"Une table. Dessus, un me 


RRÏI 


PRINT"de ne pas craindre le br 


890 


=>RINT"&erpents et que le tresc 








IF NGT(X=1 AND Y=6> THEN 970 


920 


PRINT" Quelques inscriptions se 




PRINT"les murs ainsi que des 


940 


PRINT"semblent préhistoriques 


9b0 


PRINT"Vou5 approchez -vous de 


960 


SOSUB 4970: IF FL THEM PRINT'R 






970 


IF NOT(X=i AND Y=7) THEN 1040 




PRINT"Des lutins dansent auto 


990 


PRINT"Ils sont très joyeux et 


1000 FRINT"à regarder dedans." 



>n de spécial , 



1020 GOSUB 4970: IF FL THEM PRINT" 
itent allègrement. .. ":GOTD 5210 
1030 PRINT'Ils continuent leur dft 
1040 IF NDTIX-1 AND Y=8) THËN 1111 



J PRINT"ferrae intention de faire un bon repj 
1 IF AI THEN PRINT"I1 remarque la gousse d'; 



b vous":PRINT"tener et en tombe ralde mort 


:G0T0 


110 




30 F'RINT"Dans l'impossibilité de vous défe 




90 PRINT"il vous mord et suce votre sang.' 




30 PRINT'T.'est -Tini pour vous.":GGT0 5210 




10 IF N0T<X=1 AND Y=9> THEN 1210 




20 PRINT"vous vous trouvez soudain face à 


ace 



150 PRINT"Allez-vous bien ?" 

160 GOSUB 4970: IF FL THEN PRINT"I1 vous 

Moi, ça va bien aussi "": GOTO 1210 



RIN' 






1190 P 

1200 PRINT"après, vous n'êtes plus qi. 

. ":G0T0 5210 

1210 IF N0T(X=1 AND Y=10) THEN 1300 

1220 PRINT"Un globe de verre donne s: 

1230 IF NOT l"IR THEN 1300 

1240 PRINT"Voulez-vous tenter de bi"ii 

1250 PRINT"pour vous échapper 7" 

1260 GOSUB 4970: IF NGT FL THEN 1300 

1270 PRINT"Dans cette jungle règne ut 

1280 PRINT'irrespirahle et vous mouri 

12O0 GOTO 5210 



1320 PRINT" s 
1330 PRINT"" 
1340 GOSUB i 



I PRINT"Elle répond 'Cel. 



1350 IF NOT(FL) THEN PRINT"L'eai 
et vous mourez noyé": GOTO 521t 
1360 IF N0T(X=2 AND Y=2> THEN l' 
1370 PRINT"Vous êtes dans un lor 
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LES MORLOCKS SONT DE RETOUR 



400 60SUB 4970:1F FL THEN TR=I 

410 IF NQTIX=2 AND Y=3> THEN 1450 

420 IF NOT TR THEN PRINT"Une grotte obscure. Impo 
ssible de" : PRINT" trouver la sortie. Vous restez bl 
oqué la"iPRINT"â tout jamais" iGOTO 3210 

430 PRINT"Une pièce éclairée seulement par la" 

440 PRINT"lumière de votre torche" 

450 IF N0T<X=2 AND V=4) THEN 1550 

460 PRINT"Une machine étrange... Dessus, il y a un 

470 PRINT"levier rouge" 

400 PRINT"Tentez-vous d'utiliser cette machine ?" 

470 GQSUB 4970! IF NDT FL THEN 1550 

.500 PRINT"£Ile permet de disparaître et de" 

510 PRI NT" réapparaître dans une autre pièce au" 

.320 PRINT"hasard..." 

530 X=INT (RND< 1 > »6+l ) t Y=INT (RND (i ) «10+1 ) 

540 GOTO 540 

550 IF N0TO!=2 AND Y=5) THEN 1620 

368 PRINT-Vous êtes dans une pièce où se trouve" 

570 PRINT-une enclume et des outils" 

380 IF MR THEN 1620 

590 PRINT"Vous remarquez un marteau a rayures." 

600 PRINT "Prenez -vous ce marteau ?" 

BOSUB 4970: IF FL THEN MR=1 
620 IF N0TCX=2 AND V=6) THEN 1690 
630 PRINT"Une grande serre où poussent des fleurs 

PRINT "Restez -vous ici ?" 
660 GOSUB 4970) IF NOT FL THEN 1690 

670 PRINT"La trappe d'une oubliette s'ouvre sous" 
660 PRINT"vos pieds. "i GOTO 5210 
£90 IF NOT(X=2 AND Y=7> THEN 1740 

700 PRINT"vous «tes dans une pièce où se trouve" 
710 PRINT-une trappe." 

720 PRINT "Tentez -vous de l'ouvrir ?" 
730 GOSUB 4970! IF FL THEN PRI NT "Quelques rats en 

74B IF N0T<!(=2 AND Y=8) THEN 1790 

750 PRINT"Vous remarquez un journal datant de" 

PRINT"1S35 ainsi qu'un passage secret." 
770 PRINT"L'empruntez-vous ?" 

780 GOSUB 49701 IF FL THEN X=X3: Y=Y3:GOT0 540 
790 IF N0T(X-2 AND Y*91 THEN 1850 

B00 PRINT"Dbux Morlocks vont se jeter sur vous !" 
810 IF TR THEN PRINT"Mais ils ont trop peur du fe 

d« votre torcha" :GÛT0 1S50 
820 IF CO THEN PRINT"Malgré votre couteau, ils ré 
ssissent a vous tuer":G0TU 5210 

830 IF MR THEN PRINT"vous tuez le premier avec vo 
re marteau mais le second est trop fort peur vous 
':BuT0 5210 

B40 PRINT"Sans armes, vous ne pouviez rien faire. 
iPRINf'vous Êtes mort-"îGuT0 5210 
830 IF N0T(X=2 AND Y=10) THEN 1890 
860 PRI NT "Un 



vous déclare " AI AHABAYAQADATAY 



870 PRI h 



"Bien 



880 PRINT"de déchiffrer ce message..." 

890 IF NOT<X=3 AND Y=l> THEN 19S0 

900 PRINT"vous êtes dans une pièce où 1 

910 PRlNT"sont attachés." 

920 IF TR THEN PRINT"Pai 

votre torcha":G0T0 1980 

930 PRINT"Vous vous ape. 

940 PRINT"la corde qui : 

950 PRINT"longue pour qi 

960 PRINT"vous dévorent." 

970 GOTO 5210 

980 IF N0T(X^3 AND Y=2) THEN 2010 

990 PRINT"Vous êtes dans une pièce vidi 
2000 IF TR THEN PRINT"l1ais vous glissez 

tomber votre torche dans l'eau":TR=0 
2010 IF N0T(X=3 AND Y=3) THEN 2110 
2020 PRINT"Un buffet Henri II" 
2030 IF AI THEN 2070 

2040 PRINT"Une gousse d'ail y est posée. 
2030 PRINT "Prenez -vous cette gousse d'à 
2060 GQSUB 49701 IF FL THEN AI=1 
2070 PRINT"I1 y a aussi un livre intitu! 
20BB PRINT"'La cuisine de A a 2'" 



os dépens que" 
. atteignent et" 



2090 


PRINT-Prenez-vous ce livre ?" 


2100 


GOSUB 4970! IF FL THEN AZ=1 


2110 


IF N0T(X=3 AND Y=4) THEN 2220 


2120 


PRINT"Vaus êtes dans une pièce sombre oii se" 


2130 


PRINT"trouve un coffre fermé par un lourd" 


2140 


PRINT"cadenas." 


2150 


PRINT'Voulez-vous l'ouvrir ?" 


2160 


GOSUB 4970! IF NOT FL THEN 2220 


2170 


IF NDT Nft THEN PRINT" Impossible de l'ouvrir.. 


. "sGOTD 2220 


2180 


IF tîR THEN PRINT"victoire ! Le coffre est ouv 




2190 


PRINT"des Morlocks surpris par le bruit font" 


2200 


PRINT "irruption dans la pièce et vous" 


2210 


PRINT'tranchent la gorge. " iGOTQ 5210 




IF N0T<X=3 AND Y=5) THEN 2300 


2230 


PRINT"Une fontaine représentant un lion" 


2240 


IF NOT BI THEN FL=0:GOTa 2290 


2230 


PRINT"Vous remarquez un petit trou où" 


2260 


PRINT"logerait juste votre bijou." 


2270 


PRINT"Mettez-vous votre bijou dans ce trou ?" 


2290 


GOSUB 4970:IF FL THEN PRINT"La fontaine s'ouv 


re e 


laisse apparaître un message disant Vous av 


ez de la chance, reprenez votre bijou'" 


2290 


IF NOT FL THEN PRINT"vous recevez un jet d'ea 




illante- Vous Êtes mort."îGDT0 5210 


2300 


IF N0T<X=3 AND Y=6> THEN 2360 


2310 




2320 




2330 


PRINT"Vous attardez-vous dans cette pièce ?" 


2340 


GOSUB 4V70:IF FL AND TR THEN PRINT"I1 se prod 






Vous êtes mort. ":G0T0 5210 


2350 




2360 


IF N0T<X=3 AND Y=7> THEN 2460 


2370 


PRINT"Un cuisinier Mari oc k vous regarde" 


2380 


PRINT"étrangement. . . " 




IF NOT AZ THEN 2440 


2400 


PRINT"II vous arrache votre livre des mains" 


2410 


PRINT"efc regarde S la page de l'homme auil" 


2420 


PRINT"carottes. Inutile de dire que vous aile 


2430 


PRINT"mourir.":60T0 5210 


2440 


PRINT"I1 y a une lueur de déception dans ses" 


2450 


PRINT"gras yeux noirs..." 


2460 


IF N0T(X=3 AND Y=8) THEN 2500 


2470 
24B0 


PRINT"Une voix vous dit 'Vous avBZ devant vou 


PRINT"une potion. En buvez-vous ?" 


2490 


GOSUB 4970: IF FL THEN PRlNT"Rien pour l'insta 




":PD=1 


2500 


IF N0T(X=3 AND Y=9) THEN 2550 


2510 


PRINT"Une longue pièce où sont entassés de" 


2520 




2530 


PRINT"mauvais. " 


2540 


PRINT"A part cela, il y a aussi quelques arai 


gnées. " 


2550 


IF N0T<X=3 AND V=10> THEN 2620 


2560 


PRINT"Un long couloir... Un homme vous demand 


2570 


PRINT "Avez -vous le message ?" 


2580 


IF NOT ME THEN PRINT" Comme vous ne l'avez pas 


i *1 


appelle Isb gardes qui vous tuenf'iGOTO 5210 


2590 


PRINT "Heureusement , vous l'avez. Vous lui" 


2600 


PRINT"montrez et il vous murmure a l'oreille 


2610 


PRINT" 'C'est dur la vie d'artiste'" 


2620 


IF N0T(X=4 AND Y=l) THEN 2690 


2630 


PRINT"Vous êtes dans une bibliothèque aux" 


2640 


PRINT"livres pleins de poussière..." 


2650 


IF ME THEN 2690 


2660 


PRINT "Voua remarquez un message" 


2670 


PRINT ,, incompréhensible. Le prenez-vous ?" 


2690 


GOSUB 4970! IF FL THEN ME=1 


2690 


IF N0T(X=4 AND Y=2> THEN 2740 


2700 


PRINT"Une pièce pleine d'esclaves enchaînés,. 


2710 


PRINT"Ils vous supplient de les délivrer." 


2720 


PRINT "Essayez -vous de le faire ?" 


2730 


GQSUB 4970: IF FL THEN PRINT"Et comment ça ?" 


2740 


IF NDT(X=4 AND Y=3> THEN 2790 


2750 


PRINT"Une petite salle vide. Dans un coin de" 


2760 


PRINT"la pièce est posé un petit paquet." 



L-aiTHSOiamKiMs 
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2770 PRlNT"Désirez-vous l'ouvrir ?" 




2780 GOSUB 4970: IF FL THEN PRINT"MalheL 




il est piégé, vous êtes mort.":G0T0 j21 




2790 IF N0T<X=4 AND Y=4> THËN 2B3H 




2800 pRINT"vaus êtes à 1 intérieur d nr 




2910 PRINT"chapelle faiblement éclairée 




2820 PRINT'sol, quelques rats morts... 




2830 IF N0T(X=4 AND Y=5) THEN 2950 




2840 PRINT" Vous êtes devant un énorme t 




2B50 PPINT"d arbre. En lui donnant un 




2860 PRINT"vous voua rende? compte qu ' 




2970 PRlNT"creu« . " 




2880 PRINT"L examinez-vous de plus pré 




2890 GOSUB 4770: IF NOT FL THEN 2950 




2900 PRINT"I1 y a les restes d une rue 




2910 IF MI THEN 2750 












2940 GOSUB 4970; IF FL THEN MI-1 




2950 IF N0TtX=4 AND Y=6> THEN 3040 




2960 PRINT"Une pièce vide. Soudain, vo 




2970 PRINT"couteau sur votre gorge." 








2990 IF NOT Eu THEN PRINT" vous n en av 




e agresseur vous tue."lG0T0 5210 



3000 PRINT"volis le *l 
3010 PRINT"Votre att, 
3020 PRINT"de la char 
3030 GO=0 

3040 IF NQT<X=4 AND ! 
30513 PRINT"Un énorme 



)T MI THEN PRINT-I1 ' 
!. ":GQT0 5210 

"■'Heureusement pour ' 



3060 IF 



3080 PRIN1 
3090 MI^0 

3100 IF N0T(X=4 AND V^ 
3110 PRINT"Une petite 
3120 IF 60 THËN 3160 
3130 PRINT" Il y a ded. 
3140 PRINT"Le prenez-^ 
3150 GOSUB 4970: IF FL 
3160 IF N0T(X=4 AND Y' 
3170 PRINT"Une F 



ïaute dessus et 



ble 



i mit 

3190 PRINT"Sur son écran est écrit : 
3200 D=ABS1X-X1)+ABS<Y-Y1) 
3210 PRINT" 'Encore " ; D; "pièce (s) et 
3220 PRINT"I1 y a aussi quelques pon 
3230 IF NOT<X=4 AND Y=10) THEN 3290 
3240 PRINT"Une pièce immense..." 
3250 PRINT"Sur un autel de sacrifice 

3260 PRINT"d un Morlock." 
3270 PRINT "L'emportes -vous 7" 
3280 GOSUB 4970: IF FL THEN ST-1 
3290 IF N0T(X=5 AND Y=l) THËN 33S0 
3300 PRINT"Un couloir boueu* , éclair 



3310 



RI NT"! 



i -fait apparaître i 
immunicant avec l 'i 



3340 GOSUB 4970: IF NOT FL THEN 33B0 

3350 PRINT"Des Morloclts vous jettent 

Î36B PRINT"de la surface. . . " 

3370 GOTO 5210 

3380 IF NDTIX=5 AND Y=2) THEN 3480 

3390 PRINT"Une grande salle de banqut 

3400 FRINT"chez les Morlocks)." 

3410 PRINT"I1 y a une bonne odeur de 

3420 PRINT"!, 



iINT"Vous r 
3440 GOSUB 4970: 1 
3450 PRINT"Avec i 
3460 PRINT"pièce. 



N0T(FL AND _ 




1 PRIN - 
1 PRIN 



bln 






3510 f 

3520 GOSUB 4970:1F FL THEN SE=1 
3530 PRINT"Prenez-vous un de ces cdi 
3540 GOBUS 4970: IF FL THEN CQ=1 
3550 IF N0T(X=5 AND Y=4i THEN 3640 
3560 PRINT"Vous êtes devant une grai 

3570 PRINT"semble marcher encore cai 



GOSUB 4970: IF NOT FL THEN 3640 

PRINT"tournent à l'envers ! (• 
THEN 3720 



3630 PRINT"tournent à 
3640 IF NQT(X=5 AND Y' 
3650 PRINT"Un salon a 



3660 PRINT"fauteuils. (bigarre che: 
3670 PRINT"Sur la table centrale, 
3680 PRINT"papier sur laquelle est 
3690 PRINT" 'Clé du code secret'" 
3700 PRINT-Prenez-vous cette feui] 
3710 GOSUB 4970: IF FL THEN CS=1 
3720 IF N0T(X=5 AND Y=6> THEN 3B1I 

3740 IF NOT CS THEN 3810 
3750 PRINT"vous entendez crier à i 
3760 PRINT"tode secret a disparu 
3770 PRINT"Un homme vous surprend 



3B70 PRINT ,, Morlocks surgissent dans la pièce e1 

3880 PRINT" vous tuent. "tGOTO 5210 

3890 PRINT"I1 dit 'Vous êtes très sage'" 

3900 IF N0T<X=5 AND Y=9) THEN 3960 

3910 PRINT"Un phonographe. ..": IF DI THEN 3960 

3920 PRINT"11 y a aussi le premier disque de T: 

3930 PRINT"Rossi. " 

3940 PRINT"Prene=-vous ce disque ?" 

3950 GOSUB 49701 IF FL THEN DI = 1 

3960 IF N0T(X=3 AND Y=9) THEN 3990 

3970 PRINT"Rien, sauf des chatnes, certaineroen 



39BB 


PRINT"les futurs esclaves. 


3990 


IF N0T(X=5 AND Y=10) THEN 


4^02; 


PRINT"Un lac souterrain ir 


4010 


PRINT^emblB très sale. I 




PRINT"revolver sur 1 autre 


4030 


PRINT"poasible d'aller le 


4040 


PRINT "contournant le lac. 


48541 


PRINT"Le faîtes-vDus ?" 


4060 


GOSUB 4970: IF NOT FL THEN 


4870 


PRINT"Vous glissez sur une 


ia as 


PRINT"tombez dans 1 eau. 





PRINT"tombez dans l'eau. Elle est si froi 


4090 


=>RINT"que vous êtes gelé en trois seconde 




5210 


4100 


IF NQT(X=6 AND Y=l > THEN 4190 






4120 






PRINT"de vous sauver. Il vous mord... 


4140 


IF TR AND CD THEN 4160 


4150 


PRINT"Vous mourez en quelques minutes, -t 






4160 


PRINT"Vous cautérisez la plaie avec votre 


4170 


PRINT"torche et votre couteau. Ca fait « 








IF NOT (X=6 AND Y=2> THEN 4210 




PRINT "Des habits de moines sur des cintr 


4210 


IF NOTCX-6 AND Y=3) THEN 4300 



53 



SPÉCIAL PR OGRAMME S 
LOI 77HS DÉCEMBRE 1385 



LES MORLOCKS SONT DE RETOUR 



GOSUB 4970: IF NOT FL THEN ' 



4650 F 
4660 ] 
44.70 : 



4750 : 
4760 F 
4770 : 
4780 t 
4790 F 



TR THEN 4281 



joignard dans les certes. "iGOTO 521 
NT"Ils s'écrient tous ensembles *Soyf 

NT"notres ! ! ' " 

N0T(X=6 AND ¥=41 THEN 4400 

NT'Une vieille manette toute roui 11*1 



N0T(X=6 AND Y=6> THEN 4500 



4500 


TF 


Nm 


iX=6 AND 


Y-7) THE 


4510 






Un laboratoire av 


4520 










4533 


f>R 


NI 
















4540 






Un homme 




4550 






et vous dit ' Ave 


eré ' 










4560 


TF 


nh 


DI THEN 


PRINT "Yra. 


OTO 4600 






4570 


PR 


-il 


Il voit 


e disque 



N0T(X=6 AND Y-81 THEN 4660 

NT"Une grande pièce pleine de pouss: 

NT' Il y a quelques corps dé-figurés i 



NT "le MDrlocl 



r F*:PRINT •* 
h":PRINT F* 



r"grotte hors d'état t 



. avez gagné ! 




4B90 


7F 


NOT BI THEN 4920 


4900 


RR 


NT"En allant delivr 


•910 


PR 


NT "sûr d'avoir 1 'mc 


4920 


lh 


NOT PO THEN 4958 


4938 




NT"Mai s une étrange 


4940 




NT "en quelques sema 


475B 


RR 


NT:PRlNT"Un passaoe 



4960 GOTO 5210 

4970 PRINT 

4980 AS=INKFY*:IF A*O n N" (WD A*< 

4990 IF A*="Q" THEN FL=-1 : A*="0UI 

5000 REM NOT(0)=-1 NOT(-1)=0 

5010 IF A*="N" THEN FL=0: A*="NON" 



■"0" THEN 49S0 



5030 


RETURN 






5040 


FR 


NI 
NT 


PRIN 




ES OBJETS 




5050 


PR 




5060 




Cil 


THEN 


PRINT "Un couteau" 




T,-37H 


IF 


TR 


THFN 


PRINT"Un bijou" 
PRINT "Une torche" 




5090 




MR 


THEN 


PRINT "Un marteau" 








Al 


THEN 


PRlNT"Une gousse d ' ai 




5110 


"- 


«Z 


THEN 


PRINT"Un livre 'La cl 


isine da 


5120 


IF 


MF 


THEN 


PRINT"Un message codé 




5130 


[r 


Ml 


THEN 


PRINT"Du miel" 




5140 




NI 


THEN 


FRINT"De 1 'or" 




5150 




HT 


THEN 


PRINT"La statuette d 




3160 




KR 


THEN 


PRINT"Un peu de sable 




5170 




fM 


THEN 


PRINT"Un coquillage" 




5190 




es 


THEN 


PRINT"La clé du code 




5190 




nr 


THEN 






5200 


GOTO 


90 








PR 




PRINT 




5220 


PRINT 


Voul 






5230 


GDSUE 


497B 


IF FL THEN RUN 




5240 


PRINT 


PRINT TAB(15)"Au revoir !' 




5250 


END 








5260 




A NE.NS 


NSE,NSE 





) DATA NS,NSE,NSE,NSE 

I DATA NSE,E 

1 DATA EO,NE,EOS,0 

I DATA E,Nu,SE0,NE0 

1 DATA NSED,S 

I DATA NO , NSEO , SEO , NE 

t EATA NSO,SE,NO,N90 

I DATA NSEO, S 

I DATA E,E0,NEO,DS 

I DATA NE , NSEO , NSO , SE 

1 DATA NEQ,SE 

I DATA NEO, NSEO, SEO, NE 

) DATA NSEO, NSO, NS, NSEO 

t DATA NSEO, SEO 

1 DATA NO, SU, NO, NSO 

I DATA NS0,NS,NS,SO 

1 DATA NO, 30 

1 IF FJ*-"0° THEN G*="0UEST" 

1 IF B*«"6" THEN 5*="EST" 

i if g*="s m then a*-"auo° 

1 IF G$="N" THEN GÎ="NQP,D" 
) RETURN 
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FERMAT 




Voici une nouvelle méthode d'étude des nombres premiers, fondée sur le petit théorème 

de Fermât, Le programm e exploite les avantages q ue procure le calcul en double 
précision pour traiter de grands nombres (de l'ordre de dix chiffres ), mais peut aussi 
être facilement ada pté 



mur les Basic en simple précision. 

(In test de division par 

les trente plus petits nombres premiers 

a été ajouté pour é liminer 

en quelques secondes 

la ma jori té des nombres com posés. 



■- 



Pierre Barnouin l 



1H DEFDBL B-Z!lNPUT"N " ; N: F=100000 ! : REM H 
□ iihle précision, F entier 

20 DEF FNXIY)=Y-N*INTtY/N> : DEF FNZ<V)=FN 
W*INT(V/F> )+<V-F*INT<V/F>: 



) FOR ( 



TD : 



) M: ON - 



GOTO 100,90:NEXT A 
40 FOR A=l TO 3iREAD W; P-l : B= (N-l I . 
137365! THEN 70 

50 C=INTlB/2> : IF B>2*C THEN P=FNZ <l 
60 IF C THEN B=C:W=FNZ(W> : GOTO 50 
70 IF 



B0 NEXT 



FOR * 



TD 8:READ f 



GOTO 100: t 



3,5,7,11,13,17,17,23,29,31,37,41,43,47, 

,71,73,79,63,89,77 

1,103,107,107, 113,4,9,25,26326001,16130 

321 

37S37381, 3215031751, 367727B427, 57646435 
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Deux informations et 
fonction suffisent : 

- La dimension, de 1 à 100, 
nit l'échelle du tracé. 

- Le quadrillage, de 1 à 
« habille » la courbe en définis- 
sant sa trame. 

- La fonction, Z=f {X, Y), est à 
implanter en ligne 440. A vos 
courbes gauches préférées 
maintenant ! 

Michel Chaduteau 



CRAPH 3 PIM 

Fini l'enfer du 2D ! la 3' dimension va maintenant donner un peu d'épaisseur 
à vos courbes na guère planes. 



CHADUTEAU 



:1:YI=- 



: YB=1 



m X0=160:Y0-75 

I^PUT" Dimensions mai: 10G 

00 IMPUT"Guadrillsge msï ; 

10 CLS 

20 IF P"H THEN RUN 

30 S=.B 

40 REM Passage en mode gr; 

50 REM basse résolution 26 

60 SCREEN 1 

"OR X=XI TO XS STEP 2/F 
80 FOR Y=YI TD VS STEP 2/F 

iOSUB 440 



240 REH -LIME (X,Y> t trace une droite 


riran 














250 REM de l'écran (en (160,100) car bë 
















260 REM jLisau'flu point de coordonnées * 








270 LIME - (K*<X+Y*SÏ+XO,K*(Z+¥»S)+Ya) 








280 T=i:NEXT Y 








290 T-0 








300 NEXT X 






310 T=0 




WV 


320 FOR Y=YÎ TO YS STEP 2/P 




■ x ■ 


330 FCR X = XI TD XS STEP 2/P 




mvb 


340 GOSUB 440 






350 IF T THEN 380 




W *8B 


360 PSET <K*(X+Y#S)+X0,K*(Z+Y*5)+Y0> 




■ •!■ 


























400 T=0 








410 NEXT Y 








420 INPUT AiGOTQ 90 
























450 RETURM 




■ 
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ARGUMENTIQUE 



tous vous demandez où les brillants jeunes cadres du marketin g 

et les gens ave Fou interviewe vont chercher leurs belles phrases ? 

Ou vous demande de faire une déclaration et vous ne savez pas quoi dire ? 



Ce programme est la solution 
car il a la possibilité de faire 
à votre place une déclaration 
péremptoire sur la situation quelle 
qu'elle soit. 

Peut-être votre auditoire ou votre 
patron ne comprendront-ils pas 
totalement ce que vous avez 
voulu dire. Mais que cela ne vous 
effraie pas : ils se feraient couper 
en petits morceaux plutôt que de 
l'avouer ! 

François-Jean Bavard ■ 




J COMMENT NE ( 



?0 REM 

:00 LE=79:REM 
CLS 
220 REM 
230 REM 



IIS J. BAVARD 



DE VOTRE ECRAN ■ 



REM LECTURE DES DATA 
250 REM ===========»==-- 

260 REM 

270 DIM NM*t32) ,NF*(47> ,C0*<24) ,AM*(3B> ,AF*f38) ,VE 

*!2<ï) ,AV*(23> 

2B0 REM SI VOUS RAJOUTEZ DES DATA, FAITES DONC RUN 

270 REM AU LIEU DE VOUS AMUSER A LES COMPTES VOUS- 
MEME ! 

300 PRINT CL* 

310 REM ICI VOUS FAITES UN PETIT BLABLA DE PRESENT 
ATION A VOTRE FAÇON... 

I NT "VEUILLEZ PATIENTER. ..": B*=" " 



330 t- 



360 NF=NF-< 
370 NF-NF- 
380 CD-CO' 



430 Af=AF 
440 VE=VE- 
450 V£=VE- 



500 REM CHOi: 
510 REM -■■»-■ 
520 REM 





F;FkD 


NM* 


NM) 


IF 


NM* ( NM 


<>"* 


liNF-0 












ltREAD 


NF-* 


NU 


Ih 


NF*(NF 
















IsREAD 




Oll 


II- 


COSfCD 




1 : AM=0 












liREAD 




AM> 




AM*<AM 




1 i AF=0 
















AF * 


AK) 


IF 


AF*(AF 


<>"* 




VE-a 














READ 


VF* 


VF) 


IF 


VE*(VE 


<>"* 




fiV-B 














READ 


«V* 


AV) 


lh 


AV» (AV 


<>"# 



»" THEN 340 



THEN 3B0 
THEN 400 



THEN 440 
THEN 460 



ALEATOIRES 



620 XJ=I( 
630 KK-] 

THEN 630 
640 XL=INT(RND(] 



=XB DR XI=XE THEN 610 
l-XA DR XJ=XD THEN 620 
:=XB OR XK=XE OR XK=XI 

.=XC THEN 640 



670 REM CONSTITUTION DU MESSAGE 



1 C*="DANS LA PERSPECTIVE D'UNE ' 



<XA>*B*+AF* 



SPÉCIAL PROGRAMMES 
LVI 77HS DÉCEMBRE 1385 



ARGUMENTIQUE 



<xb>+b*-c 



HXCH 



UNE ' 



' CONSISTERA f 



1 COMME UNE ' 



'10 C*=C**NF*<XD>+B*+AF*C 
XF!*B*+AV*<XG>+" NOTRE " 
720 C*=C*+NMI(XH>+B**AM*() 
+B#*AF* I XK ) +B J+CO* < XL) +" . " 
730 REM 

74B REM m-vm ™ — . . . .— ■— m—mw— ■ 
75a REM FORMATAGE ET AFFICHAGE DU f 
760 REM (SONT-CE LA LES MAMMELLES DE QUELQU'L 
7713 REM ™-=a™==-= »«=»=«-======== ======== 



790 F 



- CL* 



LENtC*)' 
CTO 530 

B10 D*=LEFT*(C*,LE) 
820 FOR I=LE TO 1 5TEP -1 
B30 IF MIDI(0»,I,n-e* THEN SS0 
840 NEXT I 

850 D*=LEFTKC*,I-1) :PRINT D* 
860 C*=M1DJMCI,I + 1):G0TG 800 
B70 REM 




RETURN" 



910 REM 

920 PRINTtPRINT TABtLE-14) 

930 PRINT TABILE-15) "OU F POUR FINIR" 

740 R*=INKEY*:XX=RND(1>: IF R*OCHR*<13) AND R*0"F 

" THEN 9 40 

950 REM 

960 IF M**F* THEN PRINT CLi:END 

970 RETURN 

9B0 REM 

990 REM — -— m i «m-—— 

000 REM NOMS MASCULINS 1 
REM —■ —— ■■ ■— ■ 

020 REM 

030 data critère .marketing, espace, futur, leadershi 

■ , recueil , éclatement , prof il 

040 data processus, potentiel, suivi, facteur-cle, hi 

;tdriquë, environnement 

050 data flux, recueil, eclatement, redeploiement, im 

'act , hor i zqm, comportement 

06E DATA Sf.'f : It-i 1 P.i: , F KOI3F-EC.T , SEGMENT , MED I A , ARGUMEN 

■■■■, IRE. SOUT IEN , REFERENT 

070 DATA CORPS DE PFtlNCIPE.CONTRfiGË, RECENTRAGE 



;ITE,SPE 



:EM NOMS FEMININS 
EM ============= 

:EM 

lATA OPTION,FLEXIBILITE,CAPACITE,M0BILITE,PR0 
GRAMMAT ION , BANQUE 
50 DATA PHASE, Pi 
FICITE, PRISE DE RISQUES 

60 DATA FORMULATION, ETHIOUE, GRILLE, CREATIVITE, MO 
LISAT ION, PROBLEMATIQUE 

70 DATA IMAGE DE MARQUE, STRATEGIE, COMPETENCE, HYP 
iE, FINALITE, PROMOTION 

DATA COHERENCE, CONTRAINTE, ADEQUAT ION, PROLIFER 
1 , VOC AT I CM , CORRELAT I ON 
90 DATA PENETRATION, IMPLANTATION, CHARTE, INGENIER 
: , COMPLE X I TE , APPROCHE 
200 DATA PROSPECTION, ELABORATION, APPROCHE, PLATE-F 

210 DATA TECHNOLOGIE, RAD I OORAPHIE , FORCE/FAIBLESSE 

220 DATA * 



250 REM COMPLEMENTS 
260 REM =========== 

270 REM 

2S0 DATA DE GESTION, D'ORGANISATION, DE DUALITE, DE 
MESURE, D 1 INNOVATION.DE DEFI 
290 DATA DE TRANSITION, DE LA TROISIEME GENERATION 
HAUT DE GAMME, DE SUIVEUR 

300 DATA A CONSONANCE INTERSTELLA IRE, DU SOFT COMM 
: DU HGRD.DE COMMUNICATION 

310 DATA D'ANALYSE, DU SECOND DEGRE, DE HAUTE TECHN 
CITE, D'INTERIORISATION 

320 DATA DU FIABLE ET DU NON-FIABLE, DE MAINTENANC 
:,DE POINTE, DES MENTALITES 
330 DATA DE HARCELEMENT.DË STRUCTURE 
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ISEE, PARALLELE, F 



510 REM 

520 DATA INTEGREE, TOTALE 
ONCTIONNELLE, SENSIBLE, FUSIBLE 

530 DATA FACULTATIF, SYNCHRONE, COMPATIBLE, EQUIL 
EË, INCONTOURNABLE, POINTUE 

540 DATA INHIBANTE, ANALYTIQUE, SUBJECTIVE, INTER 

3EE , FCNCTUELLE .METHODOLOGIQUE 

550 DATA PONDERATRICE, COMPARATIVE, STRUCTURELLE 

IFORMANTE , REC IPROQUE, AFFERENTE 

560 DATA SELECT r~ " 

BUALITATIVE.DIFFERËNC 

570 DATA DIFFEREE 
NELLE.ËURISTIQUE 

580 DATA * 

590 REM 

600 REM •——•=« 

610 REM INFINIT 

620 REM =======: 

630 REM 



370 REM t 
380 F 



TIFS MASCULINS 



390 REM 

400 DATA INTEGRE 
I ONNEL , SENS I BLE , FUS I BLE 
410 DATA facultat: 
!, INCONTOURNABLE, PO 
420 DATA ] 
PONCTUEL 



430 I 



OTAL , SYSTEMAT ISE , PARALLELE , FONC 

COMPATI BLE, EQUILIBR 

INTERI0R1S 



INTU 

ANALYTIQUE, SUBJECTIF 

.OGIQUE 

, STRUCTUREL , PERFOR 



440 DATA SELECT 
iLITATIF, DIFFERENT 
450 DATA D! 
., EUR ISTI QUE, CONTROLE 
DATA 



EXCLUSIF, INTERNE, QUANTITATIF, OU 
PERMUTABLE, OPE RAT I ON NE 



V7B REM 

.■80 REM = 



'E, EXCLUSIVE, INTERNE, GUANTI1 

, PERMUTABLE , OPEF 
CONTROLEE 



640 DATA CERNER, DYNAMI S 
APPUYER SURDEVELOPPER 

650 DATA ENGLOBER, METTRE EN EQUATIONS, ENGLOBER, PE 

1SER, IMPLIQUER, STIMULER 

660 DATA MOBILISER, COMMUNIQUER, RECDNSIDERER,CIBLE 

:,FIDELISER,COND: 

670 DATA METTRE 

;, VENTILER, IMPLIQUER 

6B0 DATA IMPLANTER 
ONNALISER,DIMENS: 

690 DATA « 

700 REM 

710 REM ======== 

720 REM ADVERBES 



RISER, CONSTITUER, S' 



EN OEUVRE , CDNCEPTUAL I5ER , PRESCRIR 
CIRCONSCRIRE, INSTITUTI 






) REM = 



COURT, MOI 



740 F 

750 DATA GRAPHIQUEMENT, GLOBALEMENT 
ET LONG TERME" 

7Ù0 DATA CQMPENDIEUSEMEIMT.DANS LE : 
MENT , GRAPH I QUEMENT 

770 DATA CLINIQUELMËNT.PAR IDEE DANS L'IDEE, 

AU DU VECU 

7B0 DATA !■ 

EMENT , OBJ ECT I VEMENT 

790 DATA SEN5IBLEMENT, HUMAINEMENT, f 

, DEONTOLOG I QUEMENT 

B00 DATA TYPOL0GIQUEMENT,PERSUASIVEMENT,P0TENTIE 
LEMENT , SPEC IF I QUEMENT 
DATA * 



850 REM COMPTEUR DE DATA 
870 REM 



9B0 GOSUB 
10 GOSUB 
920 GOSUB 



'NOMS MASCULINS" 

'NOMS FEMININS" 

'COMPLEMENTS" 

'ADJECTIFS MASCULINS" 

'ADJECTIFS FEMININS" 

'VERBES" 

'ADVERBES" 



:GOT0 1990 



>'■*" THEN N=Ni 
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LA MACHINE 
A TRANSPOSER 



Ce pro gramme évitera à Bps amis mélomanes le travail fastidieux 

de transposition de notes ou au guitariste amateur 

celui de « mettre » les accords d'une chanson à sa voix. 

Frédéric AulasB 




10 CLSlPRÏNT "TRANSNOTE":PRINT:PRINT"LA MACHINE A 
TRANSPOSER": FOR 1=1 TO 2000: NEXT I 

20 CLS:P=0:REM TRANSNOT , CREE PAR FREDERIC AULAS 
30 PRINT "Quel est le nom de la note" : PRINT'ou de 
rsPRINT'-Ex : 00 ; Ex 



D0# 



40 IWPUT AC* 



ml) 



RIN' 



SOL 



JT T:1F T>12 THEN PRINT"DEBILE ! 
jctave !"iFOR 1=1 TO 2B00:NEXT ] 
=0 THEN 90 



S0#, 

DATA DO 

SOtt. 

DATA DO 



DATA DO 

S0#, 

DATA DO 



DATA 
S0#. 
'0, DAT 



230 DATA DO 

a , so* , 

290 DATA DO 
B , SO* , 

300 DATA 

a , so# , 

310 DATA DO 
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SOYONS NETTEMENT PRÉCIS 

POUR 

FAIRE DE LA PHOTO 

Pour les fanatiques du zoom et les amateurs d'instantanés, voiei le moyen radical 

d'éviter le flou, sauf en cas de chef-d'œuvre prémédita» 

A partir de format, focale, diaphragme et distance de mise au point , 

le pro gramme donne la profondeur de cham p, de manière à vous guider pour 



la « construction d'une immortalisation i 
ou pour le choix d'un objectif, selon les différents formats. 



Albert Roux I 



20 REM 
30 REM 
40 REM 
50 REM 
Ù0 REM 



J REM en fonction c 



(INT TAB<24] 
ÏINT:PRINT I 
■ C>3 THEN : 



"0 pour 24*36" 
"1 pour 4.5«6 ,: 
"2 pour b*6" 
"3 pour 9*12" 
ABC22); : INPUT C 



Peu de choses à vons dire 




sur ce Mastermind de poche, si ce n'es^ 

qu'il faut découvri r 

une combinaison 

de cinq chiffres de0à9 

en moins de douze cou ps. 

Les sorties sont de la forme noire puis blanche. Voilà, c'est tout ! 
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6<h 



* 4- 




270 


REM 












ON C 


30TO 300,3 








290 


CE*=' 


24*36": GOTO 330 






300 


CE*=' 


4.5*6":G0T 


330 






310 


ce** 1 


6*6":B0TO 330 






320 


CE*=' 


9*12" 








330 


PRIN1 


"Pour un 






-ES 


340 


FOR ] 


-a TO C 








350 


READ 


:e 








360 


NEXT 


[ 








370 


PRIN1 


"C" 








38B 


PRINT 








" j CE* 


390 


PRINT 


: INPUT " 


La foca 


e : " ; F 



4P il 


PRINT: INPUT "Le diaphragme :": 






4ia 


PRINT! INPUT" Distance sujet 


";D 




420 


REM 






430 


REM Hyper-focale 






443 












HY=F*F/(CE*N)/1000: YH=INT<HY* 


0>/io*. î 




460 


REM 






479 


REM Net à 1 'avant 






480 


REM 






490 


AV=HY*D/<HY+D> 






500 


REM 






510 


REM Net à 1 'arrière 






~-r.:i\ 


REM 






530 


RA=HY*D/(HY-D>ïAR=INT<RA*100) 




(AR> 


540 


IF AR<B THEN AR*=" L'infini" 






"5c; 


PRINTîPRlNTiPRlNT" Pour an 








Di " m. ," 






Si a 


PRINT"la ïDne de netteté s'étend de l" 




57E 


PRINT:PRINT TAB161 ; INT(AV*10( 






"îAR* 








REM 






Ï70 


REM Affiche hyper-focale 








IF INT!D*10)=INT(YH*10> THEN 


650 




610 


PRINT:PRINT"Pour une zone de 


letteté max. 






int à 1 'Infini : " 






620 


PRINT" I 'hyperfocale eb situe 






630 


PRINT:PRINT" La netteté s'éte 


nd alors de 




640 


PRINT TABU2) ; YH/2; " m. a l'I 






650 


PRINT: PRINT: END 






660 


REM Tolérance du cercle de di 






670 


REM 






6B0 


DOTA . 033,. 05,. 075,. 1 

a 




■ 



MSTERMIND EXPRESS 




Pierre BarnouinB 



100 REM ' i entier simple précision 




110 B*=RIGHT*(STR*{INT(100000!*(1*RNDC1) >>) ,3) 


i:=q 


:PRINT"MASTERMIND : 5 chiffres SVP ?" 




120 C#=B*:K=K+1:M=0:FDR 1=1 TO 5 




170 A*(I>=INKEYÏ:IF ASCII»"'" THEN 130 




140 PRINT A*U>;:IF A* ( I ) =MID* (C*, I , 1 ) THEN J = 


:B0 


SUB 200 




150 NEXT IlIP M=5 THEN PRINT" BRAVO, gagné en 




■'coups":G0T0 lia 




160 REM INSTR(A*,B*> : recherche la 1ère occure 




de B$ dans A* 




170 REM et retourne la position où la correspor 




ce est trouvée 




1BB PRINT M;:M=0:FOR 1=1 TO 5: J=INSTR(C*, A*( I ) 




J THEN GDSUF 200 




190 NEXT I spRINT M,: IF K=12 THEN PRINT "PERDU 




était :";B*:G0T0 110 ELBE 120 




200 M=M+1 : Aï ( I > = " / " : MI D* ( C* , J ) = ■»" : RETURN 


■ 
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DES CHIFFRES ET 
DES NOMBRES 



Petit programme d'enseignement assisté par ordinateur (EAO) pour l'apprentissage 
des chiffres et des nombres, 

Georges Taccot I 




'SAVE"NDMBRE-I 



NDS NOMBRES- 



SB DEFFNT* 

40 FOR 1=5 TO 24 

50 LOCATE I,SiPRINT"*' 

60 NEXT 

70 FOR 1=8 TO 14 

[■PRINT"* 
90 NEXT 
100 LOCATE 
110 FORI=l TQ 588: NEXT 
120 LOCATE 

1NKEY*: 



STRING*<25-LEN(f 



LOCATE 24,1: PRINT"»" 
GRANDS NOMBRES I" 



IMCF*(15> ,CH*(15> 
= 1 



THEN 210 



DE Mil 



160 READ CF*(I) 
IF CF*(I>="4 

1=1+1 sboto ise 

190 DATA UNITES, DIZAINES, CENTAINES,MILLE, DIZAINE 
IILLE.CENTAINES DE MILLE, MILLIONS 
) DATA DIZAINES DE MILLIONS, CENT A INES DE MILL! 
S, MILLIARDS, DIZAINES DE MILLIARDS, CENTAINES DE t 
LIARDS.t* 
210 CLS:G=0:ES=0:A*=" , ':A1*= , '":MES*(1> = " 

IIS TE POSER \ 



':MES*(2) = " 



230 LOCATE 5, 9: PRINT "VEUX -TU JOUER ?":PRINT:PRINTF 




NT* ("SEUL" ,1) :PRINTFNT*("A DEUX" ,2) 




240 C*=INKEY*:1F C$="" THEN 240 




250 CH=VAL(C*>:IF CH< l OR CH>2 THEN 240 




260 IF CH=1 THEN PRINT: PR1NT"QUEL EST TON NOM ?":P 




RINT:LINE INPUT NOM* < 1 ) :NOM* <2>=NDMS (1 >: GOTO 290 




270 PRINT: PRINT "NOM DU PREMIER JOUEUR ? ":PRINT:LI 




NE INPUT NOMS(l) 




2S0 PRINT: PRINT 1 NOM DU DEUXIEME JOUEUR ? "îPRINTiL 




INE INPUT NOM* (2) 








300 CL S 




310 LOCATE 0,0:PRINT"MON NOMBRE DEVRA ETRE COMPRIS 




", ."ENTRE CENT ET":PRINT 




320 PRINTFNT*("MILLE",0> 




330 PRINTFNTSCDIX MILLE", 1> Hl 


MM 1 !-■' ^^^^^Hl 


lsu . > ^K M Wk 


■ «m mm-" ni ^V^H 


-tTH PCruTFNTtl'TFUT Mil 1 milB'^l V» 


-,HW ML'.KIII-Hllr'IN Mlll \ *U\\» K\ ' ^^MM 


390 PRINTFNTSC'DIX MILLIARDS" ,7) W> *« 




400 PRINTFNT*("CENT MILLIARDS" ,8) 




410 PRINTFNTSI -MILLE MILLIARDS ! " ,9) ; 




420 C*=INKEYS:IF CS=" " THEN 420 




4o0 IF ASC(C*X4B OR ASC<C*>>57 THFN 420 




440 C=VAL(C*>+2;CLS:N=RND(-TIME> 




450 A=INTCRND(1)*10"(C+1) ) : IF A<ia"(C) THEN 450 




460 NS=5TR*(A):G0SUB 1330:A*=N1* 




470 FOR 1=2 TO LEN (N*ï : A1*=MID* IN*, I , 1 ) +A1*:N£XT I 




:V=LËN<A1S) :X=0 
















490 MESS(i>="£CRIS MON NOMBRE CORRECTEMENT" 




500 MES*(2>=" (TRANCHES DE TROIS CHIFFRES)" 




510 SÏ=A*:EOSUB 1140 
















530 MES*(l>="OUEL EST LE NOMBRE OUI VIENT" 




540 MES* (2>= M JUSTE AVANT MON NOMBRE" 




550 N*=STR*(A-1) :5U5UB 1330 




560 S*=Nl*:GOSUB 1140 












5S0 MES*(2)="JUSTE APRES MON NOMBRE" 




590 NÏ=STR*(A+l)îEOSUB 1330 




600 S*=Nl*:GOSUB 1140 
















620 FOR H=l TO 3 




630 ' CHIFFRE DES 




640 MES*(1)-"QUEL EST LE CHIFFRE" 




650 CL=1:IF H=l THEN GDSUB 1410 




670 MES*(2>="DES "+CF*(X> 




680 5*=CH*(X) :GOSUB 1140 




670 ' NOMBRE DES 
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700 MES3(l) = ,1 eUËL i 
71B B=INT(A/1B--<X-: 
720 S*=N1*:G0SUB i: 



• "CALCULE 



NTAL-- 



750 X=0:MESS<1> 

74.0 CL=2 

770 EOSUB 1410 

78B FOR H=l TO 5:G0BUB 144.0 

790 IF V-KH THEN GGSUF i410:GDSUB 14ÛB 

8B0 B=INT(RNrjU)»<7>+l:B=B*VAL(CH*CX>>:IF B>fl THEN 

BOB 

B10 N*=STR*lB):GOSUB 1330 

92B D=RND(11 

830 IF D<.5 THEN MES*(2)=" ~-"*STRING* <LEN ( A 

*>-LEN<NH> ,32)+NlS:N*=STR*<A-B> : GOTO 850 

840 IF D>.5 THEN MEG*!2)~" +"+STRING* <LEN (A 

*>-LEN(NH) ,32)*NIS:N*=STR*<A-i-B> 



I BOSUB 1330 



/INFERIEUR— 

B90 MES*(1)= 

■700 FOR H=l 

91B B=INT(RND(1 

920 N*=5TR*IB) :i 

93B IF L£N(A*><13 THEN MESS (2) =A*+" "+N1* ELSE M 

ESSI2>=A*+CHR#(10)+STRHMG*<40-LËN<A*) ,32>+Nl* 
740 IF A<B THEN 5Ï="< "+M1* ELSE S*=" > "+N1* 
950 GOSUB 1140 
760 NEXT H 

970 ' 2B DUES 

TIONS 



9BB CL S 

990 IF CH=1 THEN LOCATE 2,3: 

TE 2,3:PRINTN0M*<1); " ET -;N0M*(2) 

1B00 LOCATE0,5:IF CH=1 THEN PRINT"VOICI TES RESULT 

ATS i" ELSE PRINT"VOICI VOS RESULTATS s " 

1010 LDCATE0,8:PRINT"ESSAIS i"} 



•"COMPLETE AVEC < OU > +CSHIFT1" 
TO 6 

H) ) : IF B=A THEN 910 



ELSE LOCA 



(INTE 
IINT:F 



INT" 



■;SC 



1040 M=INT<SC»200/ES/10 

1050 PRINT:PRINT"MOVENNE: , ■;M i ■V20■' 

10Û0 SC=0:E=0 

1070 LOCATE 2,21:PRINT"0N REJOUE ? (O/Nl 

I0S0 C*=INPUT*(1) 

1B-70 IF C#0"N" ANDC*<>"n" THEN 60T0 210 



use 


END 




1140 














1150 


Q=a+1:G0SUB 1270 


1IAB 


LOCATE 0,3iPRINTMES*(l> 




1170 


IF Q<15 THEN LOCATE 0,5: PRINTMESS<2 


:Z=9ïY=9; 


SOTO 


1190 




llBfl 


LOCATE 2,8:PRINTMES*(2):IF LEN(A*)> 


3 THEN Z= 


lliY 


10 ELSE I=LEN<A*)+3:Y=B 




1190 


E=E+1:L0CATE Z,YiLINE INPUT R* 




1200 


IF R*OS* THEN ES-E5+1 : BEEP: IF ES>2 


THEN LOCA 


TE0, 


2: PRI NT "REPONSE: ";S*:GOTD 1230 ELSE GOTO 119 


1210 


SC=SC+1 




1220 


LOCATE 0,12:PRINT"REPONSE EXACTE !" 


BEEP 


1230 


LOCATE 2, 1À: PRINT" [ESPACE] , SVP. .. " 




1240 


IF INKE¥*<>" " THEN 1240 




125B 


ËS=0:CL5 




1268 


RETURN 




127B 










HE M 










1280 


LOCATE 7,20:PRINT ,, VOICI MON NOMBRE" 


1290 


LOCATE 9,23:IF Q=l THEN PRINT N*+CHR*<11) ELS 


E PRINT A*+CHR*(11I 




1300 


LOCATE 0,B:PRINTSPC(31):LOCATE 0,0 




1310 


IF OM0D2=l THEN PRINTNOMSU)", ATTENTION !" EL 


SE PRINTN0W*<2)", ATTENTION !" 




1320 


RETURN 




1330 




CHAINE PO 




UR A 










134B 


N=BlNI*="" 


1350 


FOR I=LEN(N*> TO 2 STEP-1 
IF N=3 THEN NI*-" "+N1*:N=0 




1370 


N1*=(1ID*(N*,I,1>+N1* 




13B0 


N=N+1 




1390 


NEXT I 




1400 


RETURN 




1410 








OUR 1 








*(I)=MID* 


1420 


IF CL=I THEN FOR I=V TO 1 STEP -IrC* 


(01* 


I,1):6DT0 1440 




1430 


FOR 1=1 TO V:CHS(I)=STR*(11H0"(I-1) 




1440 


NEXT I 
RETURN 




1460 




TIRAGE AL 




EATO 










1470 


CH*tX)="#" 


148B 


X=INT<RND(11*V>+1 

IF CH*(X>="#" THEN 14B0 




15BB 


M*=CH* < X ) : GOSUB 1330: "TRANSFOR. 




1510 


RETURN 


■ 



VIDE V KHÔP 



251, bd Raspail. 75014 Paris. M° Raspail. Tel: 321 54 45 
50. rue de Richelieu, 75001 PARIS. Tel: 296.93.96 
Métro Palais- Royal. Ou lundi au samedi de 9h30 a 19h 



te tout micro fit 



AMSTRAD, APPLE, ATARI, COMMODORE, EXCELVISION, 
LANSAY, MSX, MATRA, SINCLAIR, THOMSON 



Crayons optiques 
: P.S.I., Editions Radio, Micro-Application 



NOUVEAU! 



42 pg 85 l'espace le plus 

micro de Paris ! 

Je désire recevoir gratuitement et sans 
engagement de ma part votre documen- 
tation sur la gamme : , 

□ matériel □ logiciels et périphériques 



ncernant le micro-ordinateur : 



D Je possède un r 


nïcro de marque : 


□ Je ne possède pas de micro-ordinateur 
NOM 


PRFNOM 


ADRFRRF 


CODE POSTAL 
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MueuHf 




ÊLECTRO- 
PIONS 

Sur un damier se trouvent 
des pions noirs et des pions Mânes 
pouvant se déplacer suivant 
quatre directions : 
haut, bas, droite et gauche. 
Lors que deux pions de même couleur se heurtent, leur couleur chan ge et cha que pion 
repart dans la dir ect ion o p posée. Ainsi, un pion noir allant vers le haut et heurtant 
un autre pion noir allant vers le bas deviendra blanc et repartira vers le bas. 
Lorsque deux pions de couleurs différentes se heurtent, sentes leurs directions 
changent mais pas leur couleur. Les pions rebondissent sur les bords du damier. 

Grâce à un aimant que l'on fait 
avancer d'une case à chaque 
tour, on peut faire varier ta direc- 
tion des pions. En effet, lorsqu'un 
pion heurte l'aimant, sa couleur ne 
changera pas mais sa direction 
variera de 90° dans le sens con- 
traire des aiguilles d'une montre ; 
autrement dit, un pion venant de 
la droite et heurtant l'aimant repar- 
tira vers le haut. Le but du jeu est 
donc de faire en sorte que tous les 
pions du damier soient de la 
même couleur. 

Une fois le programme lancé, on 
choisit le jeu voulu et deux 
tableaux sont affichés ; celui de 
gauche donne la position et la 
couleur de chaque pion, celui de 
droite la direction de chaque pion 
(H pour Haut, B pour Bas, etc.), 
l'aimant étant représenté par une 
étoile. 

Après l'affichage du nombre de 
pions de chaque couleur, l'ordina- 
teur demande la direction à suivre 
pour l'aimant (H, B, D, G ou R si 
vous désirez le laisser sur place). 
Jean-Francois Boisson ■ 




10 CL3 










20 PRINT 


PRINT' 






Electro-pions 11 


30 PRINT 


PRINT! 


-RINTîPRINT 


PRINT 


10 PRINT 


Ouel j 


eu voulez- 




50 PRINT 










60 PRINT 










70 PRINT 


2-six 








80 PRINT 


INPUT' 








90 IF C* 


>■■!•• AND CS<>"2 


THEN 80 


100 P=2*VAL(C*] 










iPRIN 1 


:PRINT"Un 


























130 REM 


Init 


ialisatio 






150 oim r*ui,i 


1) ,D*(il, 


1 


,X!19> ,Y(I9) 


14>0 FOR 


=0 TO 








170 FOR J=0 TO 








îaa Tïti 


J> = " 


: Dî ( I , J ) = 






190 NEXT 


J:NEX" 








200 FOR 


=0 TO 








210 T*!0 


I)="X' 


sT*<I,B>= 


* 


sD*(0,I) = ,, X"!D*(I,0>*"X 


220 T#(l 


,I)="7 


" 1 T* 1 1 , 1 1 


= 


X"!D*(11,I) = ' , 7. , '!D*(I 1 11 












230 NEXT 


I 








240 FOR 


= 1 TO 


10 STEP P 






250 T*<1 


I>= ,, N 


:T#I 1,1+1 




N" :DS (1,1 >-"B":D*l 1,1+1 


)="B" 










260 T*(10,I> = "1 


" !T*(10,I 




= "B" :D*(10,I)=' , H":D*(10 


,I+1)="H 










270 NEXT 










2B0 T*15 




:D*<5,5>= 






290 N=14 


-2*P:B= 


N 






300 XA=5 


YA*=5 








310 FOR 


=0 TO 


9 






320 X(I) 


-l!V(I 


=I+1:X(I+ 


M 


=10sV(I+10>=I+l 


330 NEXT 


I 








350 REM 


Mii< 


nage 
















370 CLS 










380 PRIN 










390 FOR 


=0 TO 


11 







sp;;.»i »osv.v¥£$_ 

i m ii ii'iimii mil 
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400 FOR J=0 TO 11 
410 PR1NT T*<r,J> 
420 NEXT J 
430 PRINT" ": 
440 FOR 3=0 TO 11 
450 PRINT D*(I,J> 
460 NEXT J 
470 PRINT 
4ES0 NEXT I 



) DR B=0 THEN PR1NT:I 



540 PRINT:RRINT 



37B 


F D*=' 


S8B 


F 0*=' 


598 


F Dt=" 


608 


F D*=' 


618 


F D*=" 


628 


OTO 55 


638 




648 


F X>1C 






668 


F V>1E 


670 


F TSO 


6B0 


*(XA,Y 






698 F 


RINT:P 



THEN ) 
THEN ) 
THEN \ 



THEN X=l 
THEN X=1B 
THEN ¥=1 



':D*<Xfl,Yfi)* 
ant SVP ! " 



THEN X=X 
THEN Y=Y- 
THEN Y=Y- 



GOTO 790 
GOTO 790 
GOTD 790 



840 NEXT I 
850 GOTO 340 
960 REM Chang 
870 IF EWtXCI 
TO 840 
S80 IF DÏIXII 

S?0 IF D*tX(I 



TO 978 

TO 970 

950 IF D$<Xt1 

TO 978 

960 IF D#(X(] 



1 THEN D*<X 
THEN DftX 
THEN D*(X 
THEN D*(X 

THEN D*(X 
THEN D*(X 



THEN D*(X 
Y(I) J THEN B4B 




DONNES 
DE BRIDGE 

Cette roatine was rendra 
service pour l'écriture 
de votre futur p ro gramme de bridg e, 
que vous ne manquerez certainement 
pas de mus soumettre ! 
Les quatre feux sont rangés par couleur 
et par valeur des cartes , 
»^\ celles-ci é tant 
A pourAs , 
R pour Roi , 
D pour Dame, 
V pourfalet 
et X pour le dix , 
bien entendu! 




Pierre Barnouinl 




1B A*= ,, ARDVX9B765432" !DIM 



= int<: 



!XT I 



):FOR 1=13 TD 51: 
) »RND { 1 > > I M=N < I ) i 
" THEN 3B 



2B FOR 1=8 TO 5 

)=N(K):N(K)=M:NEXT I 

30 IF H THEN BS=INKEY*1 IF BS"" ' 

40 REM CHR*(3> : coeur ; CHR*<' 

50 REM CHR*<5> : trèfle ; CHR*(6> i pique 

68 CLSsFOR 1=8 TO 3:F0R J=B TO 3>C* * J)=CHR* I3+I) iN 

EXT J 

70 FDR K=0 TO 12îJ=N<13*I+K):C*<J)=C*(J)+r1ID*<fl*,K 

+1,1) (NEXT K 

80 PRINTiFOR H=0 TO 3:PRINT TAB!H*15) C»(H);iNEXT 

H:NEXT î:GOTG 20 H 
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PILEFORTH 



Voilà, c'est fait !_ La Pile est avec vous pour vous initier aux rudiments du 

langa ge Forth, si puissant, mais si déroutant, semblera , mur les non'initiés . 

Le pro gramme si mule la pile du lan gage Forth , avec un choix limité de mots 

du vocabulaire de base. Il attend une chaîne de commandes de cent caractères au plus 

et la pile elh-même ne peut contenir plus de cent éléments. 



Le langage autorisé est donc 
composé des mots : 
S : affiche le contenu de la pile et 
son nombre d'éléments. 
VLIST : liste des mots disponibles. 
CLS : efface l'écran. 
DROP : supprime le sommet de la 
pila 

SWAP : échange les deux élé- 
ments du sommet de la pile. 
DUP : recopie le sommet de la 
pile. 

ROT : permutation circulaire des 
trois derniers éléments. 
OVER : recopie l'avant-dernier 
élément. 

ROLL : idem ROT, mais à partir de 
l'élément pointé par le sommet de 
la pile. 

PICK : écrase le sommet de la pile 
par l'élément pointé par le 
sommet. 

. : affiche le sommet de la pile 
puis désempile. 

Q : permet la sortie du pro- 
gramme. 

+ -/* : opérations arithmétiques. 
Votre initiation au forth peut 
désormais commencer- 
Eric Canovas ■ 





la REM 






20 REM 


c) Eric CANOVAS 




30 REM 






40 DIM P(100> ,E*<100> 




50 S=0:P(0>-0 




à ta CLS 






70 REM * Boucle principale * 




S0 PRINT 




90 INPU 


"QK ,: :Et 




100 IF ES="Q" THEN END 




110 E*-E*+" " 




120 FOR 


J^l TO LENIE*! 




130 IF MID*<E*,J,1>=" " THEN GOSUE 


180 ELSE Ii=I*+ 


MIDSIE* 






140 NEX 






150 GOTO B0 




160 REM 


* Tests * 




170- REM 








*="." THEN GOSUB 440 




190 IF 


*="S" THEN GOSUB 360 




200 IF 


«•"VLIST" THEN GOSUB 520 




210 IF 


Ï="CLS" THEN CLS 




220 IF 


*= ,, DROP ,r THEN GOSUB 620 




230 IF 


**"SWftP' THEN GOSUB 660 




240 IF 


*=»DUP" THEN GOSUB 710 






*="ROT" THEN GOSUB 750 




260 IF 


*="QVER" THEN GOSUB 790 




270 IF 


*="ROLL" THEN GOSUB 830 




280 IF 


*="PIO<" THEN BDSUB 930 




290 IF 


*=■■ + " OR !*="-'■ OR I#="*" 


DR 1*="/" THEN G 


OSUB 97 


1 
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L'ORDINATEUR INDIVIDUEL 

Abonnement ] Abonnement 



J e m'abonne pour 2 ans (22 numé- 
ros) au prix de 428 F* au lieu de 



I 



Je 



550 F. Mon économie est de 122 I 

sur le prix de vente au numéro. 

Ci-joint mon règlement indispensable par chèque 

iibellé à l'ordre de L'Ordinateur Individuel. 



Nom_ 



Prénom _ 



Code postal _ 



Ville _ 



Je choisis le cadeau suivant (cocher la cas 

- le numéro spécial 40 programmes 

- ou 2 numéros (à choisir page 2) 

- ou le cadeau-surprise 



■ Ollre vulab^ i-Jïqu -Ji. ; "' septembrs 

Taril valable puLr [■?. fraii'i-o nv'-lropolitaïiio Eiudi 

pensable). Etranger : SUISSE. 1Ç, route ' ~ 



ilU:-.::..rn' É80FI 



a 
n 

D 

il 340 FF Qustitlcatij ir 

M0!«. Cï\ :ûS: Le Monlsur ■ 
dit n^ 10-432-4. CH 1QS2. Le lu 
FS. CANADA, LMP1. 9345 ru< 



e m'abonne pour 1 an 

(1 1 numéros) au prix de 

220 F" au lieu de 275 F. 

Mon économie est de 55 F sur 

le prix de vente au numéro. 

Ci-joint mon règlement indispensable par chèque 

libellé à l'ordre de L'Ordinateur Individuel. 



Nom_ 



. Prénom. 



Code postal Ville 

Je choisis le cadeau suivant reoenena case) : 

- le numéro spécial 40 programmes □ 

- ou 2 numéros (à choisir page 2) 

- ou le cadeau-surprise n 

Tari! valable pour la Fr i: :e r 
subit' '■■ Elranger : i>L. ■' - ■ 
Versement à la Socle'- îener 
SUISSE : 19. route du Grand-Me 
Caisse d'Epargne et ce ;-ci ' :, 
1 56-7. 49.5 FS, Etudier/ S5 FS. :': 
-j'.iér.c- H I ir-,H3 30 SC. Tout a 
oie de surface. 340 FF. E' " 



il 175 FJustili 
f Masser ici : 
1 9Î5 FB, Elue 



I innisp^r, 

t "i" 7'.'5 - r-"= 



me de Meaui. Sair.t-Lé'jna"; 
3*5 FF, Etudiant 353 FF, pa 



■ Etudiant justihctnihndupsnsable i • Etudlon: ' ■■;V.t."::i: ;i,..':.per,sable 



Parrainez 2 amis 

Vous êtes abonné ou vous venez de vous abonner. 
Indiquez-nous l'adresse de 2 amis qui peuvent être 
intéressés par L'Ordinateur Individuel : 

PREMIER AMI : 

Nom, prénom . . __ 

Adresse . 

Code postal Ville 



Je choisis mon cadeau 



DEUXIEME AMI: 
Nom. prénom _ 

Adresse 

Code postal 



Directement de votre part, nous leur enverrons une 
proposition d'abonnement, et si l'un des deux 
s'abonne, vous recevrez un cadeau supei-surprise. 
Votre adresse : (indispensable pour vous envoyer 
votre cadeau). 

Nom, prénom 

Adresse 



Code postal _ 



Ville _ 




Spécial 
40 
programmes 
ou 
Le cadeau- 
surprise 



ABONNEMENTS LECTEURS PRIVILEGIES 



Abonnement i Abonnement 



lan 



bonnes raisons 

de 
vous abonner : 



Vous faites des économies 
Vous recevez 

L'ORDINATEUR INDIVIDUEL 
en avant-première * 
Tous les numéros 
parviennent à votre 
domicile 

Prix ferme et définitif. 
. . . et en plus vous avez un 
cadeau 



2 ans 



réservé 
aux^ 
h abonnés: 



< 

Z 

W 

W 

Z 
Z 
O 
m 
< 



iC'£*A/ 



— _z.:r« =: ;e: petites 



avan! loul le monde. 



Parrainez 2 amis 
et vous pourrez 
recevoir un cadeau 
super-surprise 

Voir conditions au verso de cette carte 






310 IF VAL(A*>=0 AND ASCIAÏXMS THEN RETURN 
320 IF S=100 THEN PRINT"Ptle pleine" ELSE S=S+1: 
S)=VAL(A*> 
330 



350 REM- mot S 
360 IF 3=0 THEN 
370 FOR 1 = 1 TQ : 
330 PRINT PII);' 
390 NEXT I 
400 PRINT M TOP i 
410 RETURN 
420 RF.M 
430 REM- mot . 
440 IF S>0 THEN 
450 PRINT"Pile i 
4 AH RETURN 
470 PRINT P(S>; ' 
480 S=S-1 
490 RETURN 
500 REM 



550 PRINT AS;" "; 

560 NEXT I 

570 PRINT 

530 DATA B,VLIST,CLS, DROP, SWAP.DUP, ROT, OVER,ROLL,l 

ICK,. ,0=FIN 

590 RETURN 

600 REM 

610 REM- «iDt DROP 

620 IF S-0 THEN PRINT"! 

630 RETURN 

640 REM 

650 REM- mot SWAP 



cfe" ELSE S=S-1 



i IF f 



P<S-I 



WAP F 

670 RETURN 



720 RETURN 



P(S) :P(! 



mées" ELSE S 



i THEN PRINT"Impossible 



i prit 



■(S-2) : 



:) >H THEN 860 



S RETURN 
770 RËM 

7B0 RËM- mot OVER 
790 IF S<2 OR 8=100 
S+l:P(S)=P(S-2) 
800 RETURN 
810 REM 

820 REM- root RULL 
830 IF P(5)-:=S AND ( 
] PRINT"Impos=ibl<= 
B50 RETURN 
360 A=P(S! ;S=S-1 

: I=A TO S-l 
P P(I) ,P(I + 1) 
890 NEXT I 
900 RETURN 
910 REM 

- mot PICK 

(=100 OR P(S)>5 DR F 
ble" ELSE P(S>=P<P 
940 RETURN 
950 REM 
960 REM- apèrt 



£SXI OR 5=0 THEN PRIN" 



3 PRIf 
990 RETURN 



AND NOTCI: 
issible 1 

1 THEN ( 

• THEN f 

THEN f 



0r 




LÉGISLATIVES 



A DOMICILE 

Ou eu parle de plus eu plus 

mais voiei enfin quelque chose de c oncret. 

le programme Législatives vous transforme 

en état-ma jor parisien ou en citoyen actif 

car vous pourrez désormais 

estimer vous-même 

le nombre de siêg efs ) obtenai s) 

par votre liste préférée... 

Olivier Arbey ■ 



lia REM Léqii 

20 REM 

3B REM Er 
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SPÉCIAL PROGRAMMES 
VI 77HS DÉCEMBRE 1985 



LÉGISLATIVES A DOMICILE 






du dêpar 



50 CLS: CLE 

60 INPUT'f 

70 INPUT"r 

80 INPUT" Nombre de 1: 

70 INPUT"Electeurs 11 
|0 INPUT"Suffragi?s ( 
OPTION BASE 1; RI 



50 REM 

60 Ct_S:V=0 

70 FOR 1=1 TO NL 



90 REM 



: INPUT NOM*(I) 



230 REM Vérification des entri 

210 REM 

220 V=V-eSCI) 

230 RËM 

240 REM Calcul du pourcentage 

250 REM 

260 P(I)=18B*SCÏ> /EX 

270 NEXT I 

280 IF V-EXO0 THEN 50 

290 REM 

300 REM Exploitation des I 

310 REM 



] CLS 
333 REM 



■-frage< 



350 REM 

360 £X0=EX 

370 FOR 1=1 TO NL 

3S8 IF P<I><5 THEN EX=I 

390 NEXT I 

400 REM 




410 


REM Quotient électoral 


^^H 




3EM 




430 


Q=EX/NS 

REM 

REM Proportionnelle 




44B 


3EM 




470 


r OR 1=1 TO NL 




4sa 


IF PII) >• 5 THEN D=INT<5U)/a) jNS=NS 


D:SG(I) = 


□ 






490 


-JEXT 1 






REM 




510 


REM Plus forte moyenne 




520 


REM 




330 


T=0 




540 


IF NS=0 THEN 600 




550 


FOR 1=1 TO NL 




368 


IF PIÏX5 THEN 560 




570 


U=SU>/(SG<I!*l)ilF U>T THEN H»IlT<*U 




asa 


NEXT I 




590 


SGlH>=SGlH)+liNS=N5-l:GOT0 530 




600 


REM 




610 


REM Affichage des résultats 




620 


REM 




630 


CLS 






650 


PRINT: PRINT: 
FRINT"In=crits : "; IN 




670 


PRINT "Ex primes : " | EX0 




680 


PRINT"Porticipation : "iiPRINT USING 


■##«.##"; 


100*EX0/IN: :PRINT" Y." 




690 


PRINT:PRINT 




700 


PRINT" Intitule: Suffrages: 




S 






710 








720 


PRINT 


730 


FOR 1=1 TO NL 




740 


PRINT NOMSU) TAB<15> 3TR*<SQ>>; 
PRINT TAB<30> USING "###.##*[ P( I) ï 




760 


PRINT TAB(45) STR*<SG(I)I 




770 


NEXT I 




780 


PRINT:PRINT 




790 




■ 



MÉMOIRE 



Des affirmations de plus en pins 
nombreuses sur les métiers de différente 

personnages vous s ont pro posées. 

II mas est ensuite demandé de répondre 

à certaines questions sur ee que 

vous avez lu, ee qui ne manquera pas 

de mettre rudement 

à contribution votre mémoire ! 




SPÉCIAL PHOGfWilUES 



70 






113 REM 


LOCATE 


20 REM 




30 REM 




40 re:m 




50 REM 




60 REM 




70 REM 




80 REM 




90 REM 


* 



110 REM 

120 REM ** DONNEES #* 

130 REM. 

140 DATA ALA IN ,JIJ1._L3, KLKNAKD .ROBERT, GREGORY , SERGE, 

LUC IEN . P I ERRE . FftAMC 1 S . MÂiVCEL , DAV 1 iî , STEPHANE , MAUR IC 

E, GILLES, ALBERT, PAUL, PATRICK, JULIEN, PHILIPPE, LOUIS 

150 REM 

160 DATA POMPIER, MEDECIN, POLICIER, INSTITUTEUR, BOUC 

HER , FACTEUR , CHAUFFEUR .EPICIER, GARAE I STE , PEINTRE , VI 

TRI ER , PLOMB i ER . MENI 1 1 S I ER , BALAYEUR , CASCADEUR , COMEDI 

EN 

170 DATA MINEUR, INGENIEUR, ELECTRICIEN, CHARCUTIER 



130 GOSUB 380 



l 830: 



PRESENTATION 
REM VARIABLES 
REM TIRAGE 
REM AFFICHAGE PHRASES 

REM CHOIX QUESTIONS 



l'UNE TOUCHE ** 



2:;:lï GOSUB 950 
230 ON DR GOSUB 
240 GOVO 200 
2S0 REM 

260 REM »* ATTENTE 
270 REM 

280 KS=INKEY*:XX=RND<li 
290 IF K*»f" THEN 2S0 ËL3E RETURN 
300 REM 

310 REM ** TELESCRIPTEUR »* 
.320 REM 
330 LL=LEN<TX*1 
340 FOR 11=1 TO LL 
350 PRINT MID*ITX*,II,1>; 
360 NEXT II:PRINT:RETURN 
370 REM 

3B0 REM *** PRESENTATION *** 
390 REM 

410 LOCATE 3,2 

420 PRINT "MEMOIRE. .. " 

430 LOCATE 9,1 

410 PRINT "IL S'AGIT DE LIRE UNE £ 

450 FRINT:PRINT"ET DE REPONDRE ENS 



NS. " 



î LOCATE 21,2 
470 PRINT ' 
480 GOSUB 260 il 
490 REM 

500 REM *** Vt 
510 REM 
520 NP=2 
530 DIM LP*(20> . 
540 RETURN 



(20) ,NOMf (15) ,SC(15> 



560 REM *** TIRAGE *** 

570 REM 

5S0 DR=0 

590 FOR 1=1 TD NP 

600 RESTORE 140: A=INT (RND+20-M ) 

610 FOR J=l TO A 

620 READ P* 

630 



640 FUR K=l TO 

65B IF P*=LP#(K: 

660 NEXT K 

67B IF DR=1 THEN DR=0 

680 LPT(I)=P* 

690 REM 

700 RESTORE 160iA=INT 

710 FOR J<*1 TD A 



THEN DR=1 

GOTO 600 




740 FOR K=l TO I-. 



.Mt(K) THEN DR=1 
THEN DR=0:GCTO 700 



800 NEXT I 




aie RETURN 




S 20 REM 




830 REM *** AFFICHAGE PHRASES *** 




G40 REM 




850 CLS 




860 FOR 1=1 TO NP 




870 TX*=LP»(I>+" EST "+LM* (I )+". " 




880 PRINT" "iiGOSUS 310IREM TELESCRIPTEUR 


B90 PRINTîNEXT I 




900 REM 




910 FOR T=0 TO 2000*NP:NEXT T 




920 CLS 




930 RETURN 




940 REM 




950 REM **« CHOIX SUESTIONS «** 




960 REM 




970 FOR 1=1 TO INT(NP/4)+l 




980 A=INTCRND«NP-H> 




990 P*=LP*<A) :M*=LM*(A> 




1000 A=ÏNT(RND»2+1> 




1010 CLS 




1020 ON A GDTO 1040,1160 




1030 REM 




1040 TX*="QUEL EST LE METIER DE , '+P#+" 




1050 GOSUB 310 




1060 LOCATE 6,1 




1070 FOR J=l TO NP 




1080 TX*="- "+LM*(J> 




1090 PRINT" ";:GDSUB 310 


PRINT 


1100 NEXT J 




1110 PRINT: FRINT: PRINT: PRINT! PRINT" 


";!INPUT R 


1120 IF R*OM* THEN DR=i:RETURN 




1130 SC=SC+(NP*10) 




1140 NEXT I:DR=2:RETURN 




1150 REM 




1160 TXS= : 'LESUEL EST "+M*+" 7" 
1170 GOSUB 310 
1180 LOCATE 6,1 








1190 FOR J=l TQ NP 




1200 TX*="- "+LP*tJ) 




1210 PRINT" "jiBOSUB 310 


PRINT 


1220 NEXT 3 




1230 PRINT SPRINT: PRINT: PRINT: PRINT" 


"S iINPUT R 


1240 IF R*<>p* THEN DR=1:RETURN 




1250 GOTO 1130 




1260 REM 




1270 REM *** GAGNANT *** 




1280 REM 




1290 CLS: LOCATE 1,1 




1300 LOCATE 12,5 




1310 TXÏ^"SC0RE:"+STRS(5C) 




1320 GOSUB 310 




1330 NP=NP+1 




1340 FOR T=0 TO 20001NEXT T 




1350 RETURN 




1360 REM 




1370 REM »** PERDANT *** 




1380 REM 




1390 LOCATE 1,1 




1400 CLS:TX*="VOUS AVEZ PERDU..." 




1410 GOSUB 310 




1420 LOCATE 8, 1 : PRINT "SOLUTION: " 




1430 LOCATE 11,1 




1440 TX*=P*+" ETAIT "+MS-t-" . " 




1450 GOSUB 310 




1460 LOCATE 16,6 




1470 PRINT"SCORE: " : SC 




14FJ0 IF SOSC(IS) THEN GOSUB 1620 ELSE 


FOR T=0 TO 


2000: NEXT T 




1490 CLSlLOCATE 2,2:PRINT" RESULTAT 




1500 REM 




1510 PRINT 




1520 FOR Ë*I TO 15 




1540 PRINT TAB(4) NOM*<E>; 




1550 PRINT TAB<30> USING"tm##" j SC (Ë) 




1560 NEXT E 




1570 REM 




1580 SC=0:NP=2 





77 



iVI 77HS OÉCEIOHE l»tS 



MÉMOIRE 



1590 LOCATE 23,li:P-RINT ,, APPUVER POUR REJOUER" 




1600 GOSUE 26B:RETURN 




1610 REM 




1620 REM *** ENTREE SCORE **« 




1630 REM 




1640 LOCATE 21,1: INPUT "ECRIVEZ VOTRE NOM: " ; NC 


M*(l 


1650 LOCATE 1,1 




1660 IF LEN(N0M*(15) ) >15 THËN NOM! ( 15) =LEFT* ( 




13) ,15) 





16,73 


SCU5) = 


àC 


1680 


REM 




1690 


DR-0 




1700 




TD 1 


1710 


IF SCIE 


-1XS 


:SC(D)-F:A*= 


IOM*( 


iDR= 






1720 


WEXT D 




1730 


IF DR=1 


TliEN 


1740 


RETURN 





ITINÉRAIRE DU VHP 




Un VHP a huit villes à visiter pour terminer 

sa journée de travail, par le circuit le plus court ! 

Le nombre de villes considéré, assez faible, 

moins de dix , permet un algorithme exhaustif. 




Dans le programme, les villes sont numérotées 
de à 7, V(R) est le n° de la ville dont le rang 
est R sur le circuit examiné (circuit pris dans les quel- 
que 71/2 = 2520 circuits fermés possibles passant 
une fois et une seule parmi les huit villes), à partir 
de la ville n° (donc V(0) » 0), et X(M,N) est la dis- 
tance entre les villes M et N. Les nombres V(1) à 
V(7) constituent une des 7! - 5040 permutations 
des entiers de 1 à 7. Les deux villes voisines de V(0| 
sont V(1) et V(7), et en convenant que l'on aura 
systématiquement V(1)<V(7), on choisit un sens 
de parcours particulier, ce qui a pour effet de divi- 
ser par 2 le nombre de cas à examiner. 
Enfin, le tableau des distances utilisé est : 
1 2 3 4 5 6 7 



['CM 71HS OECEWE I5S5 
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o • 





9 22 


31 17 8 


5 19 


1 * 


9 


24 


9 7 11 


13 6 


2" 


22 


24 


7 10 6 


4 21 


3 " 


31 


9 7 


14 17 


7 5 


4 * 


17 


7 10 


14 19 


11 8 


5 * 


8 


14 6 


17 19 


25 21 


6 * 


5 


13 4 


7 11 25 


8 


7 * 

1 


19 


6 21 


5 8 21 


8 



Il ne reste plus qu'à amenuiser chaque fois le champ 
de boucles imbriquées successives. Les sommes de 
distances sont calculées de proche en proche, pour 
minimiser le nombre d'additions. Chaque fois que l'on 
tombe au-dessous du minimum obtenu précédem- 
ment, on met en mémoire les numéros V() corres- 
pondant au nouveau minimum dans un vecteur W() 
qu'il suffira d'éditer à la fin du calcul. 
Le résultat est affiché sous la forme d'un trajet, avec 
la distance totale parcourue. 
Commercialement vôtre. 

Pierre Barnouin ■ 



ion 


DIM 


V(7 


,W 


7) X<7 7 












z=iE+a? 


FOR 1=0 TO 6iF0R J= 


1+1 TO 7iREAD t 1 






J,I 






:NEXT 3 î NEXT I 










HEM 


SWAP A 


B : echa 






variai 






et B 














138 


FOR 


1 = 1 






NEXT ï 


=0R 1=2 TO 


7: SWAP V 


(I) 


V</ 


sfi= 


<W 


V(7> ) 












FOR 


J=l 


TO 


I-liSWAP 


V(J> ,V 


1) :B=A+X(0 






150 


FHR 


K=7 


TO 


i.-SUAP V 


2) ,V<K 


:C=B-f-XCVll 


,V<2> 






FOR 




TO 


6; SWAP V 


3) ,V(L 


:D=C+X!V(2 


,V<3) 




17e 


FOR 




ICI 




41 ,V(M 


:E=D+XtVl3 


,V<4! 




130 


FOR 


Ma» 


ro 


A: SWAP V 




:F=£+XIV(4 


,V(5! 


-' 








X<V(é>S ,V(7> 














<1 THEN Z=F:FOR 


H»l TO 


7:W(H)=V(H 


:NEXT 






SWAP W( 




(5) :NEXT 


N: SWAP 


V(M> ,V14)i 


MEXT M 


S« 


ftP V(L> 




:NEXT L 










210 


SWAP V(K) ,V<2) :NEXT 


KiSWAP 


V<J) ,V(1) :NEXT J 


SM 










XT I 










220 


FOR 


H=0 


TO 


7lPRINT W<H);:NEXT H;PRINT 


TftB(35) " 


230 


DATA 9,22, 


1,17,0,5 


19,24,= 


,7, 11, 13, & 


7,10,6,4 


,21 


14. 


7|7 


5i 


9, 11, B, 25, 21 ,8 
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ANAGRAMMES 
COMPLÈTES 



Voici le moyeu de réaliser toutes les anagramme s 

possibles de mots de six lettres au plus. Eu effet , 

une fois votre mot entré, le pro gramme vous renvoie 

toutes les anagrammes , d ifférentes , 

correspondant à votre choix. 





10 CLS 




20 NP=720 




30 DIM Y(NP> ,SS<NP) ,Z*<NP) 


40 INPUT"Votre 


mot "jfl* 


50 C=i 




60 FOR N=LEN(A 


)-l TD 1 STEP -2 


70 M=N#(N+I> 




B0 OM*C 




90 NEXT N 




100 K"l 




110 FOR N*l TO 


C 


120 T*="" 




130 FOR 1=1 TO 


LEN(A*)!Y(I)-0iNEXT I 


140 FOR 1=1 TD 


LENIA*) 


150 X=INT(RND< 


)«LEN(A#>+1) 



IF X=0 THEN 150 


FOR J=l TO 




IF Y(J)=X THEN 150 


NEXT J 




Y(I)=X 




Z*(I>=I1ID* 




NEXT I 




FOR 1=1 TC 


_EN<A*> 


T*=T*+Z*tI 




NEXT r 




FOR 1=1 TO 




IF t*=ssii: 


THEN 12 


NEXT I 




S*(N)=T*:PF 


INT Ni " 
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PSEUDO-ASSEMBLEUR 

Ce logiciel a peur Jonction d'utiliser l'éditeur 

de votre inter p réteur Basic 

afin d'implanter p lus facilement des routines en ian ga ge machine. 

Votre première tâche sera donc 
de trouver l'adresse du début 
de votre mémoire Basic, éventuel- 
lement à l'aide du Dump fourni 
(faire RUN 60070 ; taper E pour 
sortir), et de l'implanter à sa place 
dans le programme (variable CM). 
Pour loger une routine en LM (Lan- 
gage Machine), utiliser le format : 
/ligne/7 /adresse/ /codes/./com- 
mentaires/./ 




REM Format i 
gne 1 pour ut 
a ' 7D00 86 F 



' 7D3E 39 
' 7D3F XX 
6B0BB END 
310 REM 



ation des 1 


gn«« 








.LDA»* 


7F 




STA>! 


2036 




-LDX#* 


ia 




LDYtt* 


ta 




. SWI * 


îa 




RTS 






.Fin d 


proi 


r*i»m 



3 



ligne : numéro de ligne Basic (10, 
20,...) 

' : apostrophe (et pas REM) 
adresse : celle où est logée l'ins- 
truction LM, quatre caractères 
Hexa 

codes : ceux, en Hexa, de votre 
routine ; de un à quatre codes 
séparés par des espaces, le tout 
devant faire onze caractères, 
commentaires : soit les mnémo- 
niques de la routine, soit des com- 
mentaires ; zone de quinze carac- 
tères, à compléter par des espa- 
ces si nécessaire. 
Un exemple de routine à implan- 
ter est donné avec le programme 
(lignes 10 à 70). Nous pouvons y 
remarquer en 70 le « XX » qui 
sert à indiquer la fin des lignes en 
Pseudo-Assembleur. 
Dernière recommandation : les 
lignes en Pseudo -Assembleur doi- 
vent être seules et au début du 
programme Enfin, pour implanter 
votre routine, faites maintenant 
RUN 60290 et admirez ! 

Luc Pineau ■ 
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~v 



60110 


GOBUB 60240 








60120 


FOR T-0 TO 


7 :P=PEEK 


DEP 




!=Pl(30SUB 60240: 


NEXT T 










60130 


REM CSRLIN 




! la 






le eu 














LOCATE CSRLIN, 30:FOR 


T"0 


H) 


:P*=CHR*<PEEK!D 


EP*T) 












6a 130 


IF ASC<P*> 


33 OR ASC 


P*) 


126 


THEN P*="." 


60160 




NEXT TrPF 


:nt 






60170 


DEP=DEP+8 










601 B0 


IF INKEY*= 


E" THEN 60200 






60190 


GOTO 60100 










60200 


PRINT'Autre (O/N) ? 








60210 


INPUT A*: 


F A*="0" 


HEN 


60090 ELSE IF A*="N 


" THEN CLSiEND 










60220 


GOTO 60210 










60230 


END 










60240 












60250 


HÏ=HEX*<N> 


REM Conve 






Hexa 


60260 


IF PEEKiDE 


+TX&H10 


HhN 




0"-t-RIGHT*<H*,l> 


:REM !.H : pré-fixe de const 




en Heaa 


60270 


PRINT H*; " 
RETURN 










60290 


REM Pseuc 


c-Assembl 









60300 


CM=fcH25A9:REM Début programme Bas:; 






60310 


REM 






60320 


CM=CM+1 






60330 


L*»«" 






60340 


FOR 1=1 TO 4 






60350 


L*-L*+CHR* (PEEK ICM+I ) > 






60360 


NEXT I 






60370 








60330 


CM=CH*6 






60390 


IF PEEKICMX48 OR FEEK<C")>70 THEN 






60400 


D*="" 






60410 


FOR 1-0 TO 11:D*=D*+CHRÏ<PEEK(CM+I' 






604 2 a 


1 = 1 






60430 


FOR E=l TO 4 






60440 


S*=MID*(D*,I,2) 






60450 


IF S*=" " THEN 60510 






60460 


IF S*="XX" THEN RETURN 






60470 


S=VAL("&H M +S#> 






60480 


POKE L,S 






60490 


1 = 1+3 






60500 


L=L+l 






60510 


NEXT E 






60520 


CM-CM+34 




■ 


60530 


GOTO 60310 





VOTRE ORDINATEUR 
PENSE-T-IL ? 



La langue d'un pays, quel qu'il soit , 
présente un certai n nombre de régularités 
statistiques qui sont à l'origine 
du dével op pement d'une 
branche particulière de 
l'étude des lan gages ; 
la linguistiq ue 
mathématique. 
Par exem ple , en franç ais, 
la lettre la plus 
couramment utilisée 
est le te » ; en revanche , 
let k s ou le « n> » ne le 
sont p ratiquement jama is. 




On connaît également la fréquence 
des lettres en fonction de leur position 
dans les mous. En fran çais , les mots 
débutent le plus souvent par « p » 
ou par te». Mais , pour 
caractériser une lan gue, 
il faut également tenir 
compte des successions 
de lettres : bigrammes 
ou autres poly grammes. 



Ainsi, le tq» est 
ton /ours suivi de «us , 
le « a » est le plus 
souvent suivi de t n », etc. 



srtqxL PKixrmws 
LWîmotœum ms 



VOTRE ORDINATEUR PENSE-T-IL ? 





Il est possible de calculer de 
manière assez précise ces 
occurrences et de déterminer ce 
que l'on appelle un tableau de fré- 
quences relatives des bigrammes. 
Si l'on ne tient compte que des 
dépendances entre lettres voisi- 
nes, la langue sera décrite par une 
chaîne de Markov. 
Le programme proposé est fondé 
sur ces quelques principes sim- 
ples. Une première lettre est tirée 
au hasard en respectant la distri- 
bution de probabilités des lettres 
de début de mot (DATA ligne 
1 80) puis les suivantes sont éga- 
lement tirées au hasard, toujours 
en respectant les probabilités de 
transition (DATA des lignes 1 90 
à 240). La ligne 660 sert à véri- 
fier les DATA introduites, par 
obtention de AA- 10000. 
On a ainsi fourni à l'ordinateur ce 
qui lui manquait pour s'exprimer, 
du moins pourrait-on le croire... 
Jean-François Goux ■ 



10 REM Votr 


e QrQinateur 






20 REM pens 


e-t-i 1 








30 REM J 


F. 


GOUX 


1985> 






40 CLS: PRINT; "vnt 


-e Ordin 


.teur pense-t-i 1 ?" 


50 INPUT 


lin 






65535 




60 CLSîR 




3I1IZE 


=-32767 






70 PRINT 




H15ÉP 


o ";P:PRINT 




S0 REM Char 






lées 




90 DIM A 


?' 


1 :DIM 


i*(24>iD 


M M (24 


:DICI B124,24> 


100 FOR 


,< 


TO 24 


READ Al 






110 NEXT 












120 FOR 


=1 


TO 24 


FOR J»l 


TO 24 




130 RE AD 


H 


I,J) 








140 NEXT 


i[| 


■IEXT 1 








150 FOR 


«1 


TO 24 


READ A* 


I) |MEX 


1 



16(9 


FOR 1=1 TO 24:M(II=0 


170 


FOR J=l TO 24:M!I)=MtI)+B(I,J) iNEXT JiNEXT I 


180 


DATA 697,377, 1003, 688, 735, 432, 29 7. 1:36,395,94, 2 


03,608,179,221,1098,61,739,792,631,57,311,5,5,17 


190 


DATA 3,23,35,14,3,13,30,2,117,2,54,17,130,0,26 


,1,86,52,56,64,35,0,5,0, 12, 0,0,0,13,0,0, 0, 10, 0,20, 


0,0 


7,B, B, 12,3,1,1,1, B, B, 0,18, 0,8, 1,98,0,0, 40, 28,0 


,12 


0,0,87,0,0,11,5,8, 14,0,0,2,0,35,0,0,0,215,0,0, 


2,33,0,0,1,0,21,0,1,12,4,0,35,1,0,0,0 


200 


DATA 53,14,100,96,66,33,14,1,16,12,141,113,242 


,15 


82 , 3 l , 1 63 , 305 ,1 43, 89, 24, 17,0, 6, 23, 0,0, 1,11, 10, 


a, a 


17,0,8,0,0,14,0,0,19,1,0,2,0,0,0,0,11,0,0,0,48 


,o, 


,0,12, 0,7, 0,7, 2, 0,0, 13, 1,2, 5, 0,0, 1,0, 12, 0,0,0, 


33,0, a, a, îa, 0,0, 0,0, 7, tj,0,0, a,0,2,0,0,0,0 


210 


DATA- 14,3,22,17,94,8,8,0,2,0,65,35,90,49,14,15 


,51 


103, 112, 0, 13, 8, 0, 0, 2, 0, 0, 0, 9, 0,0, 0, 0, B, 0,0, 0,4 


,0,0,0,0,0,4,0,0,0,0,101,1,1,5,246,2,3,4,47,0,66,1 


, 4, 3S, 3, 2, 4, 10, 6, 40, 2, 0,3, 0,55, 15,0,0, 104,0,0,0,25 


,0,0,20,0,22,29,0,0,0,0,2,0,0,0,0 


220 


DATA 30,2,60,80, 124,11,29,3,22,0,7,7,24,37,21, 


9,3 


79,197,5,10,0,1,0,0,4,7,2,3,5,2,0,52,2,29,38,1 


64,0,17,3,47,22,11,119,1,0,7,0,78,0,0,2,49,0,0,4,6 


,0,42,0,0,51,16,0,52,4,3,17,0,0,0,0,0,0,0,0,0,0,0, 


0,0 


0,0,0,0,0,0,0,0,0,0, 1331,0,0,0,0 


230 


DATA 92,1,27,20,209,0,7,1,69,0,35,13,15,55,12, 


8,17,39,41,13,5,0,1,1,75,9,36,57,155,15,18,1,64,2, 




1,13,60,39,40,9,73,61,39,9,0,1 ,0,85,4,16,45,16 


8,5 


2,4,103,1,30,3,10,39,28,18,86,42,29,8,4,0,0,0, 


21,3,16,15,85,2,2,0,68,0,24,12,62,1,20,3,88,76,56, 


240 


DATA 19, 29, a, B, 33,0.0,0,38, B, 0,0, 24, 0,0, 0, 0,23 


,0,0,7,0,0,2,0,0,0,0,6,1,3,5,3,2,1,2,2,0,4,1,0,2,1 


6,3 


0,1, 1,1, 0,0, 0,0, 8,0, 1,0, 5, 0,1, 0,0, 0,1, 0,0, 0,0, 


0,1 


3, 1,0, 0,0, 0,0, 1,0, 0,0, 2, 0, 0,0,1,0, 0,0, 0,0, 0,0, 






250 DATA A,B,C,D,E,F,6,H,I,J,L,M,N,0,P,Gl,R,S,T,U,v 


260 


IF INKEY*="S" THEN 350 


270 


X=0 


280 


GOSUB 400 




GOSUB 480: GOSUB 360 




IF D=l THEN 260 




XaX+lîGOSUB 570:GOSUB 360 


328 


IF D=<1 THEN 260 


330 


IF DOl THEN IF X<4 THEN 310 


340 


IF DOl THEN IF X>=4 THEN PRINT" ";: GOTO 260 


330 


STOP 


3ft0 


REM Lettre ou espace 




D=1+INT(5*RND) 


380 


IF D=l THEN D*=" "ïPRINT D*;:RETURN 


390 


IF DOl THEN RETURN 


t<M1 


REM Lettre de départ 


410 


K»0 


420 


E=1*INT(9973*RND) 


430 


FOR 1 = 1 TO 24 


440 


IF E>K AND E< = (K+A(I>) THEN PRINT AS ( ï) ; : L=I : G 


OTD 


470 




K=K+A ( I ) 


46 Ù 


NEXT I 


470 


RETURN 


480 


REM Choix de la 2e lettre 


490 


K=0 


500 


E-1+INT(M(L)*RND) 


510 


FOR J=l TO 24 


520 


IF E>K AND E<=<K+B<L,J> > THEN IF JOL THEN PRI 


NT AÏU) ; iF=JiQOTO 560 


530 


IF F>:t AND E<=<K-«-B<L,J> ) THEN IF J=L THEN GOTO 


480 


540 


K=K+BCL,J) 


ti:i/3 


NEXT J 




RETURN 


?"fl 


REM Choiw de la lettre suivante 


S EU 


K=0 


S90 


£=i+INT(M(F)*RND> 


600 


FOR J=l TO 24 


610 


IF E>K AND E< = (K+B(F,J) ) THEN PRINT A*U);:F-J 


:GOTQ 640 




K=K+B(F,J) 




NEXT J 


640 


RETURN 


650 


STOP 




DIM A<576> :AA=0:RESTORE 190: FOR 1=1 TO 576tREA 


D A 


I>:«A=AA+A<I> : NEXT I: PR.NT AA ■ 
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CALCULETTE POUR 
NOMBRES COMPLEXES 

Ce court programme met à wtre disposition les quatre o pérations sur les nombres 

complexes, à partir du résultat de l'o pération précédente et avee le nouveau nomb re 

co mplexe de wtre choix. A ne pas perdre surtout ! 














/ 



Pierre BarnouinB 



100 A*="?+-*/";H=2iGGTO 150 

110 PRINT Xi" i"j¥,ft* 

120 REM INSTR<A*,B*I : recherche la première 

ence de B$ dans A* 

130 REM et renvoie la position à laquelle il 

orrespondance 

140 B*=IN[ŒY$:H=INSTRtA*,B*>: IF H<2 THEN 11E 

150 W=lrPRINT B*; H <a+ib> a ?, b ";:INPUT U,\ 

1 GOTO 170,14.0,190,180 

li0 U=-U:V=-V 

170 X=X+U:Y=Y+V:GOTO 110 



7_^X-l 



W:GQTO 1 
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BASE PS CONNAISSANCES ? 
A VOUS ! 

Le pro gramme Expert sert à retrouver un élément parmi d'autres 
en répondant à plusieurs questions par oui ou par non. Expert peut gérer 
cinq cents éléments mais ce nombre est modulable aux lignes 140 et 150. 







Pour créer une base de con- 
naissances, il suffit de donner 
les deux premiers éléments de la 
base et la question permettant de 
les distinguer. Si l'on veut rajou- 
ter un élément, il suffit de répon- 
dre aux questions en fonction de 
l'élément à créer, puis de donner 
celui-ci et la question le distin- 
guant de l'élément que le pro- 
gramme aura trouvé. 

Franck Bonbted ■ 



120 REM INITIALISATION 








130 : 

140 DIM OESI500) ,PO*(500> 


, ROI 300) .F 


N* 15001 , 


N<500) 


150 DIH RE*(500> 








160 BH=0:NBS='" 1 








170 : 








190 REM MENU 

200 : 








210 CLS 
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) PRINT TABUi) "* XPER 

] PRINT TABClé-) ■'******< 

RINT "BASE : "*NB* 



260 PRINT ' 



300 PRINT ' 

310 INPUT"Votre choix ! " ; CH 

320 IF ICH<>3 AND CHOll) OR BM=1 THEN 3B0 

330 PRINT "Attention, il n'y a aucune base" 

350 FOR 1=1 TO 2000:NEXT I 



REM Cr 


est ion dur 


CLS 




IF BM 


THEN 520 


PRINT 


"Il y a de 


PRINT 


"en mèmoir 


PRINT 


"Voulez-vot 


GOSUB 


1750 


IF A* 


"N" OR A*= 


CLS 




PRINT 


TAB(IO) "Cr£ 



':PftlNT:PRINT 



NQ=1:NR=2 



630 DH=3;AD=: 



CH=3 THEN PRINT TAB t 15) "Création " i GOTO 71G 

I PRINT QEI!CA)i" O/N ?" 
] GOSUB 1750 

K>"0" AND ftS<>"0" THEN 770 
3 IF F'0$(CA)="E" THEN CA-RD(CA) : GOTO 720 
1 AD=RÛ(CA) :RÏ="0":GOTO 790 

-iï(CA)= ,, a" THEN CA=RN(CA> : GOTO 720 
I AD=RN<CA) : R*="N" 
I PRINT "Elément : ";RË*(AD>;" " 
" "~ CH=4 THEN 1080 

3 PRINT "Est-ce 1 'élément à. créer <0/N> ?■" 
1 GOSUB 1750 

) IF Ai="0" OR A*="Q" THEN 10B0 
1 NQ=N0+1:NR=NR+1 

: R*="0" THEN PO*<CA>="B": RO(CA)=ND: GOTO £ 

1 PN*tCA)""0" : RNfCA)=NQ 



3 RE*<NR)=R* 
920 PRINT"G 



elle est 11 
sti ngi.ier ! 

I PRINT"1- ";RE*IAD) 

I PRINT"2- ";RE*(NR1 

I INPUT " ";Q* 

i IF LEN(0i>>30 THEN 






990 QE*lNÛ>=G>* 



10 GCSUB 1750 



030 PD*(NQ)= 



a 50 


GOTO 10B0 


060 


PQ*(ND>="R":RO(NQ)=AD 


a 70 


PN* (N0> ="fi" : RN (NO) =NR 


000 


FRINT"Vqu1 ez-vouis continuer 10/N,' ?' 


090 


GOSUB 1750 


100 


IF A*» u 0" OR A*="0" THEN 680 


tio 


GDTO 210 


120 




130 


REM Accès disque séquentiel 


150 


CL9 


160 


PRINT TABU3) "Accès disque" 






1B0 


R*=INKEYS:IF R*<>»L" AND R*<>"L" AND R: 


ND RJKV'S" THEN 1180 


190 


IF RÎ="L" QR RÏ="L" THEN 14B0 



210 REM Sai 



RIN' 






S 00 



! PRINT "en mémoire. " 
I FOR 1 = 1 TD 2000:NEX" 
1 GOTO 210 

I INPUT"Nom de la basi 
1 REM Ouverture du fii 



3 PR1NT#2,NG,NR 
) FOR 1=1 TO NO 
) PRINT#2,0EI(I>; 
, " f RN ! I ) 
) NEXT I 
3 FOR 1 = 1 TO NR 
1 PRINT#2,RES(I) 
3 NEXT I 




460 


REM Lecture 


400 


CLS 


490 


PRINT TAB<15>" 


500 


IF BM=0 THEN 1 


510 


PRINT"I1 y a d 


iTOfl 


PRINT"en méraoi 


530 


PRINT"Voulez-v 


SSB 


IF A*«"a" AND 


rWifll 


INFUT"Nom de 1 


570 


REM Ouverture 






580 


OPEN ND* FDR I 


590 


REM Lpcture se 


600 


INPUTt»2,NB* 


M« 




628 


FOR 1 = 1 TO NE! 


630 


INPUT#2,QE*<I> 


640 


NEXT I 


650 


FOR 1=1 TO NR 


660 


INPUTI»2,RE*a) 




NEXT I 


660 


REM Fermeture 


é>90 


CLOSE 


700 


BM=1 


710 


GOTO 210 






/■MU 


REM Saisie de 


74« 




7S0 


A*= I NKEV* 


760 


IF A*O"0" AND 


THEN 1750 


770 


RETURN 



,PO*(II ,ROtI) 
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MAGIQUE 



Le joueur et l'ordinateur choisis- 
sent alternativement des chif- 
fres de 1 à 9, chacun d'entre eux 
n'étant utilisé qu'une fois. Le pre- 
mier qui a trois chiffres totalisant 
15 a gagné. Bizarrement, ce jeu 
n'est autre que, vous vous en dou- 
céièbre Tïctatoe, à cela près 
que les cases sont numérotées 
suivant un carré magique 3*3 tel 
que : 

2 9 4 
7 5 3 
6 1 8 
La connaissance de ce 
détail vous assurera, 
le cas échéant, 
une supériorité 
confortable con- 
tre un adversaire 
humain. 

Cependant, on 
notera que le pro- 
gramme a l'outre- 
cuidance de ne 
prévoir 
aucune possi- 
bilité de gain 
pour son adversaire : n'a-t-il 
oublié aucun des 362880 cas 
possibles ? 

Pierre Barnouin ■ 



loici an Hctaetoe qui vous changera des programmes de votre enfance ! 




10 CLS:L<0)=1:PRINT TAB (23) "TICTACTOE 


MAGIQUE 


:PR 


20 PRINT"I1 s'agit de totaliser 15 avec 


3 chif 


res 


" t PRINT 

30 "PRINT"Qui commence ? 1=VDUS 2=MDI" 






40 AI=INKEY*:IF ft*«*2" THEN 70 ELSE IF 




THE 


N 40 






50 GOSUB 250:PRINT"Choi5issez un ehif-fr 












60 A=VAL<INKEY*)iIF LIA) THEN 60 ELBE V 


<V)=A:L 


ni- 


70 GQSUB 250: IF M=0 THEN F=5-3*L(5> : GQ1 


O 230 




SB IF U=l THEN F=2*(VU) MGD 2 > + <V<l) 


10)*(<V 




MOD 2>=0 ): SQTO 230 






90 F=0:FOR 1=1 TO M-l:FOR J=I+1 TD MiA* 


15-MII) 


MU 


100 IF A<1 OR A>9 THEN 110 ELSE IF L<A 


=0 THEN 


F=A 


îS=1:S0T0 230 






110 NEXT J: NEXT UFOR 1 = 1 TD V-l:FOR i 






=15-V<I>-V<J> 






120 IF A<1 QR A><? THEN 130 ELSE IF LIA 


=0 THEN 










130 NEXT JiNEXT IlIF F THEN 230 






140 IF M-l THEN F»ItD«2*(V<t) MOD 2)+< 


(2) MOD 




ON D GOSUB 290,3B0,310:GOTO 230 






150 FGR A=l TO 9:1F L(A> THEN 210 







160 


FDR 1=1 T 


M~ltE=13-A-M(Il 


IF B< 


OR 


B>9 T 




200 


ELSE IF L 












170 


FDR J-I+l 


TD M:C=15-A-MU> 


IF C<1 OR 


C>9 T 




JB0 


IF L<C)-0 


THEN F-A:I"M:J«M 


A=9 








190 


NEXT J 












20Q 


NEXT I 












210 


NEXT A: IF 


F THEN 230 










220 


F=F+1:IF L(F) THEN 220 










230 


M»M*l.M(M 


-FiL<F>-HFRINT" 


e jou 




'iFilF 


G=B 










Ml, 








END 












250 


PRINT:PRINT"VoLts : " i s FDR 


= 1 TO 








(NE 






















III 


9: IF L 


I) = 


















NEXT IlPR 


NT TABfâOCMoi : 






TD M:PRIN 




I); :NEXT 


iPRINT 










2B0 


IF M+V-9 


HEN PRINT TAB12B 


"Part 




ni le": 




ELSE RETURN 












290 


F-B*V(ll- 


(2) : RETURN 
(2):F=F-2*L(F) iB 










310 




21-10 THEN F-2:RETURN 


1 Sh 


F-I0- 




























■ 
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TAQUIN FUtE 



Eu ni e d'amél iorer votre culture , nom all ons trav ailler sur un proverbe gabonais 
désordonné... 



10 


ÎEM TAQUIN FUTE de F.O. LELAIDIER 


20 REM Initialisation 


40 RANDOMÏZE 




)IM P0*<a> .PiOl 


60 


B*<lî="on ne pile" 


70 


J 0i<2)="pa= le mil" 


80 P0*<3>="avec une M 


90 


=■0* (4)=" banane 




P0*lSl= ,l nialle 




P0*(û)=" 


120 


P0*(7>="Proverbe " 


13e 


P0*<S) ="gabonais ?" 


140 


FOR 1=1 TO 8 


150 


P* < I > -FBI î I ) 




MEXT 1 


170 


R-10 


180 




198 




200 




£10 


REM Mélange 


220 


GOSUB 570 


232 


REM Affichage 


240 


GOSUB 490 




REM ****** JEU *,.*** 


260 


B*=INKT£V£: IF B**-"" THEN 260 ELSE R-ASC(B*1 


270 


IF R<>71 AND RO-72 AND ROSS AND R<>66 THEN 26 







2m. 


REM Vrai=-1 Faux=0 


290 


DX=(R=71)-(R=7i> 


300 


DY=(R=89)-(R=66I 






320 


IF X1<=0 OR VK=B QR Xl>10 DR Yl>8 THEN 260 




REM Permutation 


340 




350 


REM Affichage 




GOSUB 490 


370 


FOR 1=1 TO S 



3&8 IF Pi i I ■> ■: :.-P0£ (I ) THEf 

390 NËXT I 

400 PRINT"GAGNE" 

410 STOP 

420 REM ** PERMUTATIONS * 

430 P*(Y)-LEFT*(P*(V) ,X-: 

Df IP*(V) ,K+1) 

440 P*(9-YI=LEFT*(P#<9-¥) 

MID*<P*(9-Y) ,12-X) 

450 P*(Y1)=LÉFT*(P*(Y1) ,) 



) CLS 



■ AFFICHAGE h 



PRINT" 

520 FOR 1=1 TO S 

530 PRINT" . ";P0S<I) ; 

540 MEXT 1 

550 PRINT" 

560 RETURN 

570 REM **** MELANGE I 
580 FOR J = l TO RNDUli 
590 DX-INT!-2*RND(l)* i 
600 DY-0 




610 X1=X+D> 
620 GOSUB ' 



630 GOSUB 490 

640 REM 

650 DY^INT(-2*RND(] 



Le but du jeu est, bien entendu, 
de le remettre dans l'ordre par 
mouvement du « ? » du plateau. 
La règle de déplacement est sim- 
ple : ia lettre déplacée permute 
avec la lettre symétrique du « ? » 
par rapport au centre, lettre qui 
vient à la place du « ? », lui-même 
se trouvant à la place de la lettre 
déplacée... Vous verrez, c'est plus 
facile a voir qu'à expliquer ! 
Les commandes sont : G pour 
gauche, H pour droite, Y pour haut 
et B pour bas. Vous pouvez modi- 
fier la taille du plateau (ici 8*10) 
mais en gardant des dimensions 
paires. 

Franck-Olivier Lelaidier ■ 
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Vue fois à bord, vous wœ trouvez devant un écran cathodique formant le tableau de 
bord d'un orbiteur tietif. 



# 




0S 



00 INPUT 
10 INPUT 
20 INPUT' 



il60) :Dl=0:D2=0:H=1393:E-:< 



60 FOR A=0 TD fcffl 

NKEY*="S" THEN h 
NKEV*="2" THEN 1 



THEN D=D< 
Nl;EVï = ll T" THEN D=D- 
:NKEy*- , 'f" THEN U=U< 
U/20INT<U/2> THEN V 




Après la demande d'informa- 
tions de vol apparaît un écran 
divisé par la ligne d'horizon. En 
haut à gauche se trouve la dis- 
tance du seuil de la piste et en 
dessous la position de la piste par 
rapport à l'axe de l'orbiteur : < à 
gauche, > à droite et + dans 
l'axe En haut à droite, on peut lire 
l'altitude et en dessous la position 
de l'orbiteur par rapport à son plan 
de descente : Up haut et Down 
bas. Un beep vous avertira si votre 
altitude est trop faibla Sur la par- 
tie inférieure apparaît la piste en 
clignotement. 

Pour les commandes, nous 
avons : 

— 7 : montée en virant à gauche 

— 1 : descente en virant à 
gauche 

— 2 : descente dans l'axe 

— 9 : montée en virant à droite 

— 3 : descente en virant à droite 

— 8 : montée dans l'axe 
: descente faible 

— + : montée faible 

— * : pilotage automatique (com- 
mande la descente mais pas le 
positionnement dans i'axe) ; 
appuyer à nouveau sur * pour 
reprendre les commandes 

— G : à l'affichage de "GEAR" 
sort le train d'atterrissage 

— : : commande les aérofreins 
Si votre atterrissage est réussi, 
votre écran restera bloqué sur les 
dernières informations affichées. 

. Dans le cas contraire... 

L. et J.-C. Jamain ■ 
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/I80/180/I390/1390) ) sR=D-B0 






320 


Dl-D-INTIC» 


1*M)+R:D2=D+IMT(C«M*M)*R 




330 




:N D3-DiD4-D 






34 


IF H<=500 T 










LINE 10, El- 


(160, El 










-ID3,N)eLINE ID2,C)-(D4 






370 










-.-83 


IF D>155 THEN 580 






390 


IF H<0 THEN 


H=0 








LOCATE l.lt 


'R'INT"DIST"eLOCATE 1,6e 


RINT USINE" 


####S";B 








410 


LOCATE 1,13 


FRINT"ALT": LOCATE 1,17 


PRINT US 


NG 


420 


IF H<(I».9) 


THEN LOCATE 2,14: FRIN 


"Bown" 




430 


IF H> l 1*1. 1 


THEN LOCATE 2,14: PRI 






440 


^INT" 


THEN IF HXIt.9) THEN 


LQCATE 2 


14 


4M 


IF U/20INT 


U/2) THEN LOCATE 2,14e 


PRINT"» 






IF f-KI».3 THEN BEEP 








IF K<a THEN 


IF D2<80 THEN LOCATE 2 


7e PRINT 




480 


IF R;0 THEN 


IF Dl>80 THEN LOCATE 2 


7e PRINT 




490 


IF DKSB THEN IF I)2>B0 THEN LOCATE 2,7: PRI 


NT 


500 


IF H<70 THEN IF F=0 THEN GOSUB 630 








IF H=0 THEN 


IF F=0 THEN 590 






520 


IF H-0 THEN 


















540 


IF H--=B THEN 


IF D2<80 THEN 590 






550 


LINE (Dt,C> 


-(D3,NI ,0eLINE (D2,C)-(D4 T N) ,0 




560 


IF H=0 THEN 


680 






570 










580 


CLSsPRINT"V 


us ne poove; plus vous 


poser": 60 


TO 


750 








570 


FOR X=l TO 









fn«n 


LOCATE 3,9s 


PRINT ,, Cra5h"iF0R l~l T€ 


100: NEXT 




610 


LOCATE 3,9: 


PRINT" ":FOR Z=l T 


IOeNEXT 


Z: 


NEXT XîGQTQ 760 








à 20 


END 








6-r i; 


LINE (60,13 


-<10B,13):LINE (100,13 


-1100,25) 






( 100, 251 -(60, 25) : LIME (60,251- (60, 


3! s LOCATE 




,9:PRINT"GEAR" 








640 


IF INKEY*="G" THEN F=lsIF F=l THEN 


LOCATE 3, 


9: 


650 


RETURN 








660 


D3=D-INT((A 


40>*.136)iD4=D+INT((A-40)». 136) 






RETURN 










LOCATE 3, Il 


PRINT"Speeu : ":W-1 






îZ 


T=T*i:V=93/ 


2.71B"(. 115*T*W)):IF V 


.01 THEN 


V= 


LOCATE 3,7i 


PRINT USING"##.#")v-i IF 


INKEY*="s 




THEN W-1.3 










IF VW THEN 


IF E>-3500 THEN B=B-1V* 


2.865) iLO 




TE 










720 


IF W-1.3 THEN LOCATE 2,7: PRINT"»" 






730 


IF V>0 THEN 


IF B>-3500 THEN 69^ 






740 


IF V>0 THEN 


IF BO-3500 THEN 590 






750 


IF rNKEVÏOCHR*(13) THEN 730 






760 


CLS: INPUT " 


oulez-vaus un nouvel Bs 


sai (O/N 




■'iE*:IF E*="D" 


THEN B0 






770 


END 

REM 


ions opéci-fiques 






B00 


REM 








a in 




,YI)-IX2,Y2) e trace un 


e droite 








point X2,V2 






820 


REM (0,0) e 


haut a gauche, (160, 3E 
















B30 


REM LINE (X 








la droite 








840 


REM LOCATE 










X colonne Y 








■:.!'.. a 


REM 

REM 


» 






890 


REM Soit K= 


temps d'une Boucle FOR /NEXT 




10000) /100 










REM ligne 160 : remplacer 60 p.ar 60 


*<2-K) 




910 


REM ligne 130 i 93 -> K*93 








REM ligne 300 : 353.4 -> K«353.4 et 


0.265 -> 






65 








930 


REM ligne 660 : 0.136 -> K*0.!36 et 


40 -> K* 








t D4) 






940 




: 93 -> K*93 








REM ligne 14 


: multiplier RND par 






v po 


lnt> d'une 1 


igné d'écran 




H 



SOMME 
DES 

DIVISEURS 



Comment exprimer la somme des dhiseurs 

d'an nombre V donné 

en fonction des sommes des diviseurs 

des nombres inférieurs à Y ? 




Inutile de gâcher votre jeunesse à chercher la solu- 
tion découverte par Euler. Je ne vous infligerai pas 
non plus sa formule, relativement complexe, mais 
uniquement ce petit programme qui établit une table 
des sommes des diviseurs des N premiers nombres. 
On peut s'y repérer grâce aux minima relatifs qui la 
jalonnent, minima égaux aux nombres premiers aug- 
mentés d'une unité... 

Pierre Barnouin ■ 



10 INPUT"Liraite e "sL!CLS:D1M S(L) 




20 S(N)=S:l)-0;M=UP=NiS=0:N=N+1:S(0I=Ns IF N>L THEN 




50 




30 S=S+M«S<P) :J=J+1eP=P-J: IF Pt.0 THEN 20 




40 3=S+WtS(P>:M=-M:P=P-2*J-iE IF P<0 THEN "-fl ELSE 3 









t.0 FOR 1 = 1 TO L:PRINT SCI);:NEXT I : END ■ 
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rOI 77HS DECEMBRE 1S85 



A CHEVAL 
SUR L'ÉCHIQUIER 






le problème du cheval qui doit parcourir tout l'échiquier a fa it plancher des 

générations d'écoliers. Si le cheval va dans les cases qui ont le moins de sorties , ea 

marche. Mais ne me demandez pas pourquoi ! 







François Dupin I 



CHEVAL 


1B DEFINT ft-Z 






20 CLS 






30 ' TABLEAU DEPLACEMENT CHEVAL 






40 FOR 1=0 TO 7 






50 READ DX(I> ,DY(I) 






60 NEXT 






70 NL=S:NC=BiZE=2:DIM TINC+2*ZE 


NL+2»ZE> 










90 FOR Y=l TO NL 






100 FOR X=l TO NC 






110 T(X+ZE,Y+ZE>=1 






120 LOCATE X*3,Y*2:PRINT "B"; 






130 NEXT X 






140 NEXT Y 






150 FOR Y=l TO NL 






160 FOR X=l TO NC 






170 FOR D=0 TO 7 






lfi0 DX-X+DX(D):DY=YtDY<D> 






170 IF T(DX+ZE,DY+ZE)>0 THEN T( 


+ZË,YtZE)=T( 


+ ZE,Y 


+ZE1+1 






200 LOCATE X*3,Y*2:PRINT' , <";îPR 


NTUSXNB'ft" |T 


X+ÏE, 


Y+ZE)-1 






210 NEXT a 






220 NEXT X 






230 NEXT Y 







240 ' PARCOURS- 




) PX=INT(RND(1)»NC)+1:PY=INT<RNDU)*NL 

1 LOCATE PX*3,PY»2:PRINTUS1NG-«H(";NJ; 

) T(PX+ZE,PY+ZE)=-1 

) DP— 1: HT =9999 

! FOR D=0 TO 7 

! DX=PX+DX(D>:DY=PY+DYID> 

1 IF T<DX+-ZE,DY+ZE><=0 THEN 37B 

I T(DX+ZE,DYtZE)=T(DX+ZE,DY+ZE>-l 

) LOCATE DX*3,DY*2tPRINT"<"; : PRINTUS1NG"*"; T(DX+ 

> IF T<DX+ZE,DY+ZEXWT THEN WT=T !DX+ZE,DY+ZE) i DF 

•2>=0 THEN 



1 IF DF=-1 THEN » 

! NJ=NJ+1 

) PX=PX+DX(DF):PY=PY+DYU 



RINTUS!NG"»*";NJ; 



) LOCATE PX* 
1 GOTO 2B0 

J ' FIN 

1 LOCATE 0,22:PRINT"ON RECOMMENCE ' 
:IF R*<>"N" THEN SB 
) DATA -1,-2,1,-2,2,-1,2,1,1,2,-1,: 



;:R*=INPUT# 



SPÉCIAL PROGRAMMES 
L'OinHS DÉCEMBRE )S3S 
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/'ordinateur 
Individuel 

■ presente 

MICROSTRAD, MICROTOM, MICRODOR : 

DES REVUES VRAIMENT CONÇUES POUR 
LES BESOINS DES UTILISATEURS DE 
MICROS AMSTRAD, THOMSON OU 
COMMODORE 



Dans chaque numéro : 

• Un panorama complet des nouveautés et une informa- 
tion concrète sur votre micro et son environnement 

• Des logiciels, des langages, des périphériques testés 
en toute indépendance 

• Un cocktail de programmes (utilitaires, éducatifs, ludi- 
ques, etc.) pour passionnés, petits ou grands, spécialistes 
ou débutants 

• Des astuces, des idées, des conseils pour rendre votre 
micro passionnant 

• Des dossiers originaux réalisés par une équipe d'experts 



LA REVUE DES MICROS AMSTRAD 



1UN£ SOURIS POUR VOTRICPC 

MUSIQUE SUR AMSTRAD: 
LA SARABANDE 
DEHAENDEL 



TURBOPASCAl A L'ESSAI 




MICROIOM 



8x- 



BULLETIN D'ABONNEMENT A RETOURNER A : 



□ Je désire m'abonner au prix avantageux de 134 FF pour 6 numéros 
(188 FF étranger, 240 FF par avion). 
Je réalise ainsi une économie de 20 % sur le prix de vente au numéro. 

D MICROSTRAD 

D MICROTOM 

n MICRODOR m 



lffl^_ 



D Je désire recevoir le(s) numéro(s) 

Prix d'un numéro : 28 FF (37 FF étr 

NOM: 



.... de MICROSTRAD 
.-.. de MICROTOM 
.... de MICRODOR 
inger, 45 FF par avion). 



Code postal : Ville : 

Ci-joint, indispensable, mon règlement par chèque bancaire o 
libellé à l'ordre de ELOI ET CIE. 



GUIDE DES 
MICROS THOMSON 

160 LOGICIELS ET 

LANGAGES 

TESTÉS 

71) PÉRIPHÉRIQUES ET ff 

EXTENSIONS 

DÉTAILLÉS 




ABONNEZ-VOUS 



I MICROSTRAD, MICROTOM at MICRODOR sont des publia- 
is du Groupe TESTS, premier groupe de presse informatique 
France {L'Ordinateur Individuel, Ordi Magazine, Infomac, 
* 01 Informatique, etc.). 



ÊÈtmmà 

US MICRO ) COMMODOXIU KIWI 

fflfVfflV 

illl 


fSP 


«l'AMKA m 


§m ! 


28 

LES ADRESSES 

DES MOIS-CLES 
DU BASIC 7.0 


TtsrlÈ 

TROIS SOURisI 
POUR COMMODORE | 


LEGRAPHI5ME S&HH 

DES COMMODORE ,..,„,. „-.. ■—-„., 1 


AtACASTl 
PROGRAMMES ET ASTUCES ™" 
POURVIC10,C64,CI28 ■ 





-■- 



la micro à livre ouvert 




